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ABSTRACT 


This  study  provides  ths  nssdsd  cost/bsns£it 
analysis,  utilizing  s  standard  syatsss  analysis,  to 
updata  ths  tracking  of  ths  Quality  Dsfleisncy 
Raporting  Syatsa  at  ths  Navy's  Float  Notarial  Support 
Of flea,  Maehanlcaburg,  Ponnsylvania. 

This  Thaala  analyzas  tha  prasant  systam,  proposas 
an  altarnatlvo  manual  procass,  astablishas  an  intoris 
Managaaant  Information  Systam,  and  an  analyais  and 
proposal  for  an  automatad  systam  using  tha  concapt  of 
a  local  araa  natwork. 
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for  organizational  raaourcaa  la  tharafora  hopalaaa  in 
view  of  tha  larger  divlaional  naada.  It  la  at  thla 
point  that  tha  aanagar  haa  placad  hia/har  aalf  into  a 
no  win  aituation. 


II. 


It  ia  tha  purpoaa  of  this  atudy  to  dataraina  tha 
viability  of  a  full  offica  autoaation  ayataa  uaing 
atandard  ayataaa  analyaia  daaign  tachniquea.  This 
atudy  will  provida  an  analyaia  that  will  daaonatrata 
in  taraa  of  coat/benef ita  and  laprovad  af ficiancy 
that  autoaation  or  aoaa  other  altarnativa  is  tha  aoat 
banaficial  avolution  in  obtaining  tha  productivity 
incraaaaa  required. 
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XXX.  METKmni  nav 

This  study  uasd  standard  systsss  analysis  and 
svsluation  for  davaloping  a  flsxibla  systss  to 
procaaa  and  monitor  ths  Navy's  Quality  Dsficiancy 
Rsporta  (QDR)  through  Flsst  Hatsrial  Support  Offics 
(FHSO) ,  Hachanicaburg,  Pannaylvania.  Ths  asthodology 
of  this  work  was  aceosplishsd  in  four  phasss. 

A.  INITIAL  ANAL Y8 I 8 

Ths  information  procsssing  rsquirsmsnts  of  ths 
offics  wsrs  analyzsd  along  with  ths  offics' a 
capabilitiss  to  procaaa  thass  rsquirsmsnts 
afficisntly  and  sffactivsly.  This  analysis  was 
accompli shad  primarily  through  psrsonal  intarviawa 
with  ths  psraonnsl  assignsd  to  ths  Dsfactivs  Hatsrial 
Ssction  (Cods  91423).  During  thaaa  intsrvisws 
attitudas,  baliafa,  parcaptiona,  motivations,  morals, 
and  job-satisfaction  lsvsls  wsrs  survsysd  as  wall  as 
tschnical  dstaila  about  ths  actual  flow  of  work. 
Additional  intsrvisws  wars  conductsd  with  individuals 
outsids  ths  offics' s  dirsct  chain  as  wall  to  add 
braadth  to  ths  study.  Among  thass  wsrs  Xtsm  Nansgsra 
and  Flsst  Actlvitiaa.  Samplas  of  all  forms  ussd  in 
ths  procsss  wsrs  gathsrsd  and  rsviswsd. 
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B.  SELECTION  OF  A  FEASIBLE  APPROACH 

A  literature  March  waa  undartakan  to  dataraina 
tha  baat  approach  to  tha  analyaia  and  to  dataraina 
poaaibla  altarnativaa  to  tha  praMnt  ayataa.  Tha 
March  exaained  racant  tranda  in  office  automation, 
apecialized  application  prograaaing,  ao£twara 
packagea,  and  conaonly  uaad  hardware  ayataaa.  Tha 
raaulta  o£  thia  raaaarch  vara  intagratad  with  tha 
previoualy-detarainad  naada  o£  tha  o££ica  to  provide 
a  baaia  for  tha  baat  approach  to  aolving  ita  naada. 

C.  ALTERNATE  PROCESSES 

Bafora  dataraining  that  a  fully- automated  procaaa 
waa  tha  anawar  to  tha  long  range  productivity  goala. 
Mvaral  alternate  procaaMa  had  to  be  developed* 
taatad  in  theory  or  actual  application,  and  judged  aa 
to  their  auitability. 

D.  EVALUATION  OF  AN  APPROPRIATE  SOFTWARE  AND 

HARDWARE  PACKASE 

Tha  Coaaand  had  not  made  any  coaaitaent  to  any 
particular  ayataa.  A  aurvay  of  aoftwara  packagaa  and 
hardware  ayataaa  available  waa  aada.  Each  package 
and  ayataa  waa  evaluated  on  ita  ability  to  handle 
aatabliahad  raquiraaanta  and  offer  aaxiaua 
flexibility  to  tha  UMr. 
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This  study  snalyzsd  ths  present  manual  system  to 
dstsrmins  its  requirements,  identified  arses  where 
modifications  could  be  made  to  improve  short-term 
productivity,  evaluated  alternatives  available  for 
the  improvement  of  long-run  productivity,  and 
recommends  a  systems  design  that  will  meet  future 
requirements . 

A.  RESEARCH  QUESTIONS 

1.  What  short-  and  long-run  productivity  gains 
can  be  realized  by  a  modification  of  present  methods? 

2.  Can  the  automation  of  the  tracking  system  now 
in  use  on  the  Quality  Deficiency  Reports  lead  to  a 
better,  more  reliable  system? 

3.  Will  the  systems  analysis  substantiate  a 
fully-automated  system? 

4.  Will  it  show  that  an  alternative  process 
should  be  used? 

3.  Whst  problems  need  to  be  considered  in  the 

design  of  a  genersl  office  automation  system? 
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Tha  analysis  of  tha  Quality  Daficiancy  Raport 


ayataa  ravaalad  bottlanacka  in  both  procaaaing 
procaduraa  and  aanagaaant  sty la.  Workload  figuraa 
ovar  tha  past  four  yaara  plus  tha  first  four  aontha 
of  tha  praaant  ealandar  yaar  show  an  ovarall  incraaaa 
of  191k  in  tha  caaa  load.  Thara  axiatad  a  larga 
backlog  that  was  ovar  aga  (aa  dafinad  by  tha 
govarning  instructional .  rapraaanting  hundrada  of 
thousands  of  dollars  in  poaaibla  cash  flow  back  to 
tha  Navy  Stock  Fund  <NSF) . 

On  aita  obaarvationa  also  ravaalad  conaidarabla 
raaiatanca  to  any  changa  in  tha  nathod  of  handling 
tha  QDR.  A  nunbar  of  conditions  axiatad  that 
rainforcad  this  raaiatanca  and  wars  fait  to 
contributa  squally  to  tha  frustrations  baing 
axpariancad  by  tha  analysts  and  aanagars  of  tha  QDR 
procaaa . 

A  coat/banafit  analysis  ahowad  that  tha  coat  of 
autoaatlng  tha  procaaa.  aa  oppoaad  to  hiring  aora 
parsonnal  and  continuing  tha  praaant  ayataa.  would 
raaliza  an  initial  pay  back  in  approxiaataly  four 
aontha. 
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V, 


A.  QUALITY  OCPXCICNCY  NKPONTXNQ  SYSTEM  OmVXEU 

Navy  Supply  Xnatruetlon  (NAVSUPINST)  4440.1 20 E 
dealgnatea  Fleet  Material  Support  Of flea  <FKSO>  aa 
tha  ovarall  aonltor  for  tha  quality  deflclancy 
aanagaaant  information  reporting  ayataa.  Within  this 
framework.  FNSO  ha*  tha  reaponaibillty  of:  1) 

notifying  appropriate  Navy  activitiaa  of  QDR 
material;  2>  coordinating*  recording  and  monitoring 
actiona  of  managara;  3>  aacartaining  locationa  and 
quantity  of  QDR  material  at  Navy  facllltiea  and  4> 
anauring  that  timely  diapoaitlon  inatructlona  are 
forwarded  to  Navy  activitiaa.  Tha  Command  doea  not 
monitor  QDR* a  in  the  area  of  aubalatenca.  aviation* 
ammunition  and  certain  medical,  nuclear  and  ayatena 
command  itama.  Figure  1  ia  tha  organizational  chart 
for  FNSO.  QDR* a  are  handled  by  tha  Technical  Branch 
<coda  9142)  within  tha  Comptroller  Department  (coda 
91).  Figure  2  ia  tha  organizational  chart  of  tha 
Comptroller  Department.  Within  tha  Technical  Branch, 
coda  91423  (Dafactlva  Material  Section)  la 
reaponalble  for  tha  actual  proceeelng  of  all  QDR*a. 

Thera  are  two  catagorlaa  of  QDR'a:  1)  category 
X.  uaad  to  identify  life  threataning/highly  hazardoua 
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situation*  that  auat  ba  procaaaad  within  24  hours  of 
rseoipt  and  2)  catagory  II,  uaad  to  idantify  routina 
situations  of  a  non -hazardous  natura  which  auat  ba 
procaaaad  by  FHSO  within  tan  days. 

Aftar  procaaaing  tha  QDR  through  FHSO,  tha  raport 
is  aant  to  tha  Itaa  Hanagar  <i.a.  Oafansa  Logistics 
Agancy,  Ship  Parts  Control  Cantor,  ate.)  for  a  foraal 
invaatigation  into  tha  natura  of  tha  problaa  <i.a. 
bad  apacif icationa,  substandard  aatarial,  ate.). 
Whan  this  invaatigativa  procaaa  batwaan  tha 
govarnaant  and  tha  contractor  has  boon  coop 1 at ad,  a 
dataraination  is  aada  as  to  whathar  tha  contractor 
will  or  will  not  raiaburaa  tha  govarnaant.  Tha  Itaa 
Hanagar  than  iaauoa  disposition  instructions  back  to 
FHSO.  Upon  racaipt  of  thaaa  disposition 

instructions,  FHSO  raiasuaa  thaaa  thaaa  instructions 
to  all  coaaanda  affactad.  If  cradit  to  tha 
govarnaant  is  indicatad,  it  is  than  postad  to  tha 
caaa  fila  and  tha  casa  ia  cloaad  out. 

».  THE  0RI8XNAL  SYSTEM 

Undar  tha  praaant  ayataa,  daily  aail  and  aaaaagaa 
ara  pickad  up  by  tha  branch  aacratary.  Tha  traffic 
la  than  aortad  and  routad  to  tha  various  aactiona. 
Quality  Daficlancy  Raporta  (QDR* a)  and  Raporta  of 
Diacrspancy  (ROD'a)  ara  routad  to  tha  Dafactiva 
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Material  Section,  cod*  91423.  QDR'a  art  identified 
at  Category  Z  or  Category  ZI.  Catagory  Z'a  ara  aant 
to  tha  auparvlaor  and  Catagory  ZZ'a  ara  aant  to  a 
Supply  Syataa  Clark  (SSC) . 

Figuraa  3 ,  4,  and  S  show  tha  overall  flow  of 
Catagory  ZZ'a.  Tha  SSC  dataralna  tha  nature;  a.g. 
Screening  Receipt ,  New  Caaa,  or  Exlating  Caaa.  Zf 
tha  fora  ia  a  Screening  Receipt  (Figure  3)  (an 
acknowladgeaent  by  the  Ztea  Manager  of  receipt  of  a 
caaa  now  in  work),  it  ia  placed  in  the  caaa  folder 
and  filed,  with  no  further  action  taken. 

Zf  the  fora  ia  an  action  on  an  exiating  caaa 
(Figure  4>,  the  caaa  folder  ia  pulled  froa  the  filea 
and  aant  to  the  Supply  Syataa  Analyat  (SSA) 
reaponaibla  for  that  Cognizance  Group  (COG) .  The  SSA 
deterainea  if  it  ia  a  requeat  for  additional 
lnforaation  froa  the  Ztea  Manager,  Final  Dlapoaition 
Znatructiona  on  the  caaa  or  a  Tracer  Action  initiated 
by  the  orlgiator  of  the  QDR.  Zf  it  ia  a  requeat  for 
additional  lnforaation,  the  SSA  atteapta  to  anawer 
the  requeat  either  froa  exlating  lnforaation  or  by 
going  back  to  the  originator.  The  SSA  then  drafta  a 
reply  back  to  the  Ztea  Manager  and  aende  it  out.  The 
caaa  file  la  updated  and  ref lied.  For  Diapoatloa 
Znatructiona;  tha  SSA  deterainea  what  haa  been 
directed  to  be  done,  drafta  a  aeaaage  to  all  effected 
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activities  and  ralaaaaa  It.  If  tha  Disposition 
Instructions  indicsts  that  ths  government  is  to 
rscsivs  credit,  it  is  posted  on  the  Case  Report.  The 
case  is  then  sent  to  a  SSC  who  enters  the  pertinent 
close  out  data  in  the  current  computer  database  and 
the  case  is  then  on  file  for  three  calendar  years. 
For  Tracer  Actions,  the  SSA  siaply  deterainea  if  a 
case  ia  in  exiatance  and  sends  a  reply  back  to  the 
originator. 

If  the  case  is  detarnlned  to  be  new  or  is  a 
Report  of  Deficiency  <ROD>,  the  SSC  sends  the 
paperwork  to  an  SSA  for  initial  screening  and  review 
(Figure  3) .  This  particular  30b  is  rotated  on  a 
monthly  basis  between  all  SSA' a.  If  the  case  is  an 
ROD,  a  form  letter  (OPNAV  3216/158)  la  attached  am  a 
cover  and  mailed  to  the  shipping  activity  for  action. 
No  other  actions  are  required  of  FNSO. 

For  a  new  case,  the  SSA  screens  the  QDR  for  such 

things  as  Category  II 'a  that  should  be  Category  I'm 

etc.  The  case  ia  then  passed  to  a  SSC  who  verifies 

all  data  against  the  moat  current  publications, 

researches  the  National  I tan  Identification  Number 
(NIIN)  againmt  a  3  x  5  card  for  previous  ODR's  enters 
pertinent  new  case  data  to  the  computer  database,  and 
then  sends  the  case  to  the  SSA  handling  that 
particular  COG.  The  SSA  screens  the  QDR,  verifies 
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Figure  5 


any  information  that  aay  atill  raaain  in  question* 


MkM  out  copiaa  of  FHSO  fora  4440/  12A*  gats 
additional  copiaa  of  tha  original  QOR  aada  out*  aanda 
a  copy  to  tha  SSC  for  filing  and  haa  tha  original 
aailad  to  tha  Xtan  Managar  with  a  copy  aailad  back  to 
tha  originator  aa  a  racaipt. 

Catagory  X  QDR's  (Figura  6),  ara  routad  to  tha 
aacond  Lina  Supervisor  who  personally  acraana  than 
and  dacidaa  which  SSA  ahould  handle  it.  Tha  SSA 
(Figure  7)  than  does  tha  coaplata  process  of 
screening*  verifying*  assigning  a  case  number* 
initiating/updating  a  local  3x5  control  card* 
researching  tha  item  in  question  and  drafting  a  new 
massage  to  tha  Item  Manager  and  tha  Originating 
Activity.  Tha  masaaga  than  goaw  to  tha  aacond  Lina 
Supervisor  for  review  and  back  to  tha  SSA  for  any 
corrections.  Once  approved*  tha  massage  ia  signed 
and  released  by  tha  supervisor. 

Tracer  actions*  requests  for  additional 
Information*  acraaning  receipts*  and  final 
disposition  instructions  ara  all  handled  in  tha  same 
manner  as  for  Catagory  XX  QOR' a  except  they  all  go 
through  tha  aacond  Lina  Supervisor. 

At  present*  FMSO  is  using  a  General  Electric  (GE) 
time-sharing  service.  This  service*  based  in  Ohio* 
is  accessed  from  the  office  by  a  single*  300  baud* 

2-5 


Figure  6 


Waatarn  Union  talatypawritar .  Figuraa  ft  and  9  ara 
tha  ayataa  diagraaa  from  tha  manual.  Figura  ft  ahowa 
tha  logical  flow  of  ODR  data  froa  tha  originating 
activity  to  FHSO  and  than  into  tha  GE  databaaa. 
Figura  9  ia  a  logical  rapraaantation  for  tha  updating 
procaaa  of  tha  databaaa  itaalf  and  tha  ganaration  of 
raquaatad  raporta.  Aftar  racaipt  of  a  raport 
raquaat.  tha  ayataa  ho Ida  tha  raquaat  in  a  quaua 
until  off-paak  houra  for  procaaaing.  Tha  raporta  ara 
than  aailad  to  tha  cuatoaar.  Racaipt  of  raquaatad 
raporta  ia  ganarally  within  thraa  to  four  working 
daya  of  raquaat. 

Thla  ayataa  ia  aavaral  yaara  old.  It  now  auffara 
both  froa  a  functional  ability  to  kaap  paca  with  tha 
praaant  raquiraaanta  of  tha  offica  and  froa 
inafficiant  phyaical  daaign.  Tha  work  atation  in  tha 
offica  raquiraa  tha  oparator  to  laan  ovar  and  paar 
down  bahlnd  a  ribbon  in  ordar  to  raad  aaaaagaa  froa 
tha  ayataa.  Tha  ayataa  raquiraa  aavaral  ainutaa  to 
raapond  to  a  raquaat.  Baking  it  tiaa-conauaing  and 
coatly.  It  haa  no  onlina  inquiry  capabilitiaa. 

Whan  tha  ayataa  goaa  down,  thara  ia  no  accurata 
procaaa  by  which  to  dataraina  what  or  how  auch  data 
la  affactad.  Tha  Dafactiva  Hatarial  Saction  racaivaa 
notification  of  ayataa  failuraa  with  poaaibla  data 
that  aay  hava  baan  loat.  Thia  ia  tha  only 
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Reports  to  Database 


Figure  8 


Information  available  to  the  cuatoaer.  Thia  aeana 


that  tha  office  haa  to  reenter  all  data  froe  the  day a 
in  queation  with  no  knowledge  aa  to  whether  they  were 
actually  loat  or  not.  The  ayatan  will  error  trap 
duplicate  entiea  of  caaea  by  caae  number;  but  in  the 
aean  time*  it  ia  not  known  how  much  work  ia  actually 
wanted  due  to  duplication.  Furthermore,  there  ia  no 
poeitive  way  of  knowing  how  much  other  work  waa  loat. 
For  theme  raaaona  information  from  the  preaent  ayatea 
ia  auapect. 

The  ayatea  la  currently  acceaaed  by  a  1200  baud 
work  atation  located  in  another  office  which  allowa 
the  viewing  of  information  directly  on  a  CRT.  Thia 
overcomea  the  problem  of  tranaalaaion  apeed.  At 
preaent  the  ayatem  belonga  to  another  branch  and  can 
only  be  uaed  when  that  branch  ia  not  uaing  it. 

Laat  year  the  office  had  a  budget  of  *17,000  for 
the  operation  of  the  GE  ayatea.  Thia  year,  the 
office  had  apent  a  total  of  *16,000  aa  of  April  30th. 
Neat  year 'a  funding  requeat  aak  for  a  total  of 
*30,000  in  order  to  keep  pace  with  the  growing  work 
load. 

C.  ANALYSIS  OF  THE  ORXSINAL  SYSTEM 

Several  areaa  were  noted  aa  bottlenecka  in  the 
general  flow  in  the  preaent  ayatea.  Follow-up 


analyais  ravaaltd  a  combination  of  ovarly-raatricti va 
aanagaaant  constraints,  liaitsd  nuabar  of  procsssing 
mstsrisls  (NIZN  microfiches,  card  dacks  with  pravious 
history  filed,  ate,.)  and  individuals  ovar-workaa  as 
a  rasult  of  currant  vacanciaa  in  tha  staffing  of  tha 
sac t ion. 

Oottad  linas  in  Figures  10,  11,  12,  13,  and  14 
show  tha  arass  that  wara  idantifiad  for  follow-up 
analysis.  In  aach  easa,  a  bottlanack  in  tha  procaas 
occurs  that  results  in  tha  addition  of  from  ona  to 
four  days  baing  addad  to  tha  in-housa  turnaround  tiaa 
for  Catagory  II  QDR's.  Tha  Category  I  QDR's  wara 
baing  handlad  within  tha  instruction  guidelines; 
though  inaff iciantly.  These  wara  all  physical 
constraints  that  wara  eventually  corrected  by  a  new 
QDR  flow  and  rearrangement  of  management  oversight. 

Intangible  problems  included  perceptions  as  to 
what  was  happening  in  the  immediate  environment. 
Morale  within  tha  entire  Defective  Material  Section 
was  found  to  be  low,  attributable  to  three  factors: 
misperceptions  as  to  what  was  happening  with  the 
vacancies  in  the  first  Lina  Supervisor  and  the  third 
Lina  Branch  Manager's  (a  Military  Personnel  Billet) 
job  and  tha  perceived  notion  of  working  in  a  job  that 
had  little  or  no  prospects  for  advancement.  The 
first  Lina  Supervisor's  job  was  being  handled  by  the 
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Figure  10 
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Figure  11 


3. 


Original  Quality  Oeflctancy  Mn  Praeaaa  Wltn  Qra&iaa  *ra aa  loanttflao  (Catagary  II  Contlnuao: 


Figure  12 


original  Quality  Oaftclancy  rio»  Procaaa  «Hn  Prooia*  Araaa  roantldaa  (Catagory  1) 


Figure  13 
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second  Lin*  Supervisor  who  over****  two  additional 
offices  and  th*  third  Lin*  Branch  Manager's  billet 
waa  b*ing  teaporarily  filled  by  a  GS-12  froa  another 
branch  within  th*  division*  creating  a  las*  than 
optiael  situation. 

Largely*  the  Supply  Systea  Analyst  coaes  to  the 
job  as  a  GS-9  with  proaotion  opportunity  available  to 
only  one  GS-11  first  Line  Supervisory  30b  within  the 
section.  Though  lateral  aoves  are  possible*  the 
personnel  within  the  Defective  Material  Section  view 
this  as  a  difficult  process. 

Backlog  is  steadily  increasing  (see  Table  1*  page 
52) .  Th*  nuaber  of  case*  arriving  daily  are  aora 
than  can  be  processed  in  the  day;  an  average  of  39 
new  cases  arrive  each  day  as  opposed  to  15  per  day  in 
1979*  an  increased  of  160*.  Analysis  of  the  case 
input  flow  revealed  no  predictable  trends  of  totals 
within  a  given  COG  type.  This  lack  of 
predicatability  aakaa  th*  scheduling  of  work 
disorganized.  On  a  dally  basis*  the  volute  of  QDR's 
ranges  froa  no*  to  170  new  esses. 

The  aanner  in  which  cases  were  allocated  created 
case  load  labalancea  leaving  soa*  analysts  under 
utilized  and  others  over  burdened.  Soae  QDR's  are 
siaply  a  process  of  quick  verification  and  routing  to 
the  I tea  Manager  for  action  while  others  aay  require 
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technical  raaaarch  or  phona  contract,  with  the 
originator.  Tiaa  zona  differencea,  ahip-at-aaa 
couunicationa,  ate.,  furthar  delay  the  proceaa.  In 
addition  to  new  caaaa,  there  are  inquiriaa  and  tracer 
actiona  on  outatanding  caaaa  that  iuat  be  raaaarchad 
and  aant  out  by  the  analyat  who  originally  handled 
the  caaa.  Diapoaition  inatructiona  on  outatanding 
caaaa  arrive  froa  the  varioua  Itaa  Managers  directing 
actiona  that  may  involve  tiaa  frames  established  by 
legal  actiona. 

Additional  problaaa  are  caused  by  the  aethod  by 
which  cases  are  handled  when  they  arrive  in  the 
office.  All  cases  are  initially  screened  for 
correctness  by  one  SSA  and  then  sent  to  an  SSC  for 
more  screening  and  verification.  This  creates  a 
bottleneck  in  the  flow  at  two  consecutive  locations. 
Finally,  the  QDR  is  distributed  to  the  analysts 
according  to  COG.  With  the  randoaness  of  daily  caae 
load  arrivals,  this  approach  creates  a  very 
substantial  iabalance  of  caae  loads.  Once  the  caae 
is  processed  by  the  analyat,  an  additional  bottleneck 
la  created;  all  cases  are  passed  to  the  branch 
secretary  to  address  and  mail  out. 

Analysis  of  the  current  computer  time-share 
system  shows  it  to  be  inadequate  for  the  office  needs 
and  should  be  either  upgraded  or  replaced  altogether. 
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load  continuing  to 


incraaaa 


year-to-year  <aaa  Tabla  1,  page  52)  tha  praaant 
ayataa  will  continua  to  bacoaa  more  of  a  major  coat 
and  bottlanack  in  tha  procaaaing  of  QDR'a. 

Thua,  with  tha  aiapareaptlona  of  what  warn 
occurring  with  tha  currant  ataff  vacanciaa,  tha 
intarvantion  of  a  Sacond  Lina  Manager  into  tha  daily 
routine,  and  tha  incraaaad  work  load,  couplad  with 
dacraaaing  aorala  all  addad  up  to  a  aituation  that 
ataadily  graw  woraa.  Add  to  thia  aituation  tha 
managar'*  parcaption  that  tha  offica  ia  laaa  than  lx 
of  tha  organizational  labor  forca  and  conaidarably 
laaa  than  lx  of  the  dollar  aaaata  and  capital 
invaataant.  Therefore,  their  problaaa  are  not  of 

command  level  aignificanca  and  no  one  really  caraa. 
Tha  raaulting  combination  of  circuaatancea  can 
quickly  lead  to  a  criaia. 


D.  MODIFICATION  OF  THE  EXX8TXMB  SYSTEM 

Tha  araaa  outlined  in  Figurea  10,  11,  12,  13,  and 
14  are  tha  araaa  that  ware  given  detailed  analyaia. 
Tha  reaultm  of  thaaa  analyaaa  ware  tha  foundation  of 
tha  praliainary  deaign  of  a  fully  automated  ayataa. 
Five  major  criteria  ware  uaad: 


1.  How  would  an  office  automation  ayataa  affect 
thia  flow  procaaa? 

2.  How  auch  of  that  affact  could  ba  continued 
under  a  manual  flow? 

3.  How  auch  of  an  impact  will  a  given  change 
have  in  teraa  of  human  behaviorial  patterna? 

4.  What  would  have  to  be  done  in  terma  of 
training  and  commitment  of  office  peraonnel  in  order 
to  enaure  the  new  ayatem'a  auceeaa? 

5.  What  impact  would  thia  change  have  on 
eaployee/aanagement  morale? 

Thia  approach  waa  uaed  to  evaluate  alternative 
methoda  to  a  full  office  automation.  The  above 
allowa  prediction  of  productivity*  thereby 
faciliatating  pro 3 act i one  of  future  capacity.  The 
reaulting  flow  proceaa  will  produce  a  new  ayatea  that 
will  even  the  work  load  among  the  Supply  System 

Analysts *  allow  eaay  identification  of  backlog* 

increase  output*  a  rearrangement  of  management 
oversight  procedures  and  a  dramatic  decrease  in 

immediate  backlog. 

For  Category  ZZ'a*  the  proceaa  (Figure  IS)  was 
completely  overhauled.  Screening  receipts  are  still 
filed  away  in  the  case  folders  as  before.  However* 
new  caaes  and  ROD' a  are  placed  in  folders  and  the 
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Figure  15 


ontir*  batch  racaivad  that  day  ara  placad  at  tha 
bottom  of  a  backlog  pila  (Flgura  16).  Thia  allow* 
aanagaaant  and  offica  paraonnal  an  laaadiata 
knowladga  of  raal  oxiatlng  backlog  and  raduncancy  la 
tha  ayataa  la  aliainatad.  Whan  an  SSA  than  doaa  all 
nacaaaary  acraaning,  validating  and  raaaarch,  aaalgna 
tha  caaa  nuabar,  aakaa  all  copiaa  naadad,  praparaa 
tha  covar  lattara  and  caaa*  for  nailing.  Tha  fil* 
copy  la  givan  to  tha  SSC  for  filing  and  tha  aacratary 
pick*  up  tha  anvalopaa  for  nailing. 

Thia  approach  aaaantially  changaa  tha  typa 
quauing  ayataa  in  which  tha  QDR' a  wara  placad. 
Bafora,  tha  aathod  aaaignad  a  QDR  to  a  givan  SSA 
ragardlaaa  of  tha  SSA 'a  backlog.  Now  tha  QDR  wait* 
in  a  slngla  quaua  for  tha  naxt  aval labia  SSA.  Thia 
procaaa  avana  -  tha  workload*,  raducaa  tha  avaraga 
waiting  tiaa  for  procaaaing,  and  aliainataa  tha 

bottlanacka  by  having  fawar  paopla  work  on  tha  total 
flow  of  a  caaa  varaua  aavaral  paopla  trying  to  handla 
an  aapact  of  ovary  caaa. 

Whan  diapoaition  inatructiona,  tracar  action*  and 
raquaata  for  additional  inforaation  ara  racaivad 
(Figur*  17),  tha  SSC  pulla  tha  caaa  and  idantifiaa 
tha  SSA  working  on  that  caaa  by  tha  addition  of  an 
SSA  cod*  attachod  to  tha  caaa  nuabar.  Tha  caaa  la 
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Flgura  16 


than  placed  in  tha  SSA's  incoming  box  for  handling  •• 
before. 


Category  X  QDR'a  and  tha  limited  number  of 
nuclear  material  QDR'a  are  handled  differently.  The 
eecond  Line  Supervisor  is  given  a  copy  for  management 
oversight  only.  All  Category  I 'a  and  'X'  COG  Nuclear 
QDR's  are  now  sent  straight  to  one  SSA  who  handles 
all  the  cases.  Figure  1A  shows  this  new  flow.  In 
this  way,  the  other  SSA's  are  never  interrupted  by  an 
unexpected  emergency  case.  If  the  SSA  handling  the 
Category  I 'a  and  Nuclear  cases  finds  him/her  self 
caught  up,  s/he  can  help  out  with  the  Category  II 
case  load . 

The  implementation  of  this  new  process  allowed  a 
couple  of  things  to  be  accomplished:  1)  a 
significant  reduction  in  the  time  to  process  a  case 
was  immediately  realized  as  evidenced  by  the 
reduction  of  the  backlog;  2>  an  alternative  process 
to  full  automation  was  applied  and  evaluated;  and  3) 
the  process  was  moved  closer  to  full  automation. 

In  addition  to  these  changes,  a  simple  database 
conaisting  of  a  ten  field  record  was  added  to  the 
system.  This  system  was  added  on  the  basis  that  it 
would  not  create  an  additional  conversion  problem 
later,  would  be  easily  maintained,  not  require  an 
undue  amount  of  labor  time  to  keep  up  and  would 
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Figure  18 
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provide  aanaguant  with  a  means  of  acquiring  date 

about  the  caeee  being  processed  without  disrupting 
work  flow. 

This  dstabsse  was  estsblished  on  an  IBM  Personal 
Computer  using  dBase  IX .  The  reasons  for  this 
selection  were:  1)  the  hardware  and  software  had 

already  been  evaluated;  2>  it  was  able  to  meet  the 
processing  requirements  of  the  office;  3>  both 
systems  were  easily  obtained  without  further  expense 
to  the  prosect;  4)  it  allowed  for  both  initial 

training  of  office  personnel  and  command  programmers; 
and  S)  it  allowed  for  the  initial  evaluation  of  an 
office  automation  system  in  a  practical  application 

without  creating  follow-on  problems  or  total 

commitment  to  full  automation. 

The  database  was  created  to  allow  tracking  of: 
1)  average  awaiting  time  a  case  experiences  before 
being  processed;  2>  average  processing  time;  3) 
average  turnaround  tine;  4)  average  response  tine  of 
the  Item  Manager  on  cases  (either  overall  or  by 
specific  Item  Manager);  S)  average  turn  around  time 
required  to  process  final  disposition  instructions; 
6)  average  case  load  by  analyst;  7>  total  number  of 
cases  in  the  system;  8)  total  number  of  Category  X 
and  Category  II  cases;  9)  total  number  of  cases  in 
the  office;  10)  total  number  of  esses  awaiting  Item 
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Hanagar  ruponn  by  Ztam  Hanagar  or  coapoaita  total; 
11)  total  nuabar  of  eaaaa  in  final  disposition;  12) 
total  nuabar  casas  closad  out  to  data;  and  13)  caaa 
load  braakdown  by  COG  and  Ztaa  Hanagar.  Figura  19  is 
a  listing  of  tha  databasa  structura  and  a  saapla 
printout  of  tha  raeorda  in  tha  databaaa.  Appandix  A 
is  a  coaplata  listing  of  tha  application  prograa 
davalopad  using  d&aaa  ZZ  to  aanipulata  tha  databasa 
and  ganarata  tha  aanaganant  raporta.  Appandix  &  is 
tha  nacaaaary  data  dafinitions  usad  in  tha 
application  prograa. 

Tha  databaaa  and  application  programs  wars 
davalopad  as  a  naans  of  avaluating  tha  training 
raquiraaanta  that  would  hava  to  ba  considarad  in  any 
daciaion  to  autonata  tha  offica.  Appandix  A  doaa 
not  rapraaant  tha  final  varsion  of  tha  application 
prograa  usad  to  driva  this  intarin  databasa.  Rathar, 
it  was  only  a  first  cut  at  davaloping  application 
programs  using  dBasa  ZZ. 

No  modlf ications  to  tha  axisting  tiaa  shara 
systam  wara  attanptad  whan  it  was  laarnad  from  tha 
aystam  prograamars  that  to  naka  ona  minor  changa 
would  raquira  approxiaataly  80  nan  hours.  Tha 
currant  systam  la  still  in  oparation  panding  final 
dacislons  concarning  changas  to  tha  ovarall  data  flow 


within  tha  offica 


LISTING  OF  DATABASE  STRUCTURE  AND  SAMPLE  RECORDS 


Structure  for  fila:  MGR. DBF 
Number  of  record*:  00010 

Data  of  last  updata:  00/00/00 
Prlaary  use  databasa 

FLD _ NAME _ TYPE  WIDTH  DEC 


OOl 

Data: In 

N 

004 

002 

In : work 

N 

004 

003 

Casa: nr 

C 

010 

004 

Cog 

C 

002 

005 

Tach:code 

c 

002 

006 

Im 

c 

004 

007 

Cat 

c 

001 

008 

Transmit 

N 

004 

009 

Responsa 

N 

004 

010 

Closeout 

N 

004 

»«  TOTAL  »* 

00040 

3001 

3004 

3-00001-00 

9N 

02 

SPCC 

2 

3009 

3052 

3060 

3001 

3005 

3-00002-00 

9Q 

03 

DLA 

2 

3009 

3055 

3057 

3003 

3008 

3-00002-0A 

9Q 

03 

DLA 

2 

3011 

3054 

3060 

3004 

3004 

3-00003-00 

92 

01 

DLA 

1 

3004 

3020 

3021 

3004 

3010 

3-00004-00 

9L 

06 

DISC 

2 

3012 

3040 

3045 

3004 

3010 

3-00005-00 

2A 

04 

DISC 

2 

3012 

3090 

3097 

3005 

3011 

3-00006-00 

4C 

02 

DLA 

2 

3014 

3080 

3084 

3006 

3013 

3-00007-00 

2A 

04 

DISC 

2 

3019 

3071 

3079 

3006 

3013 

3-00008-00 

8Q 

05 

SPCC 

2 

3025 

3099 

3100 

3006 

3014 

3-00008-0A 

8Q 

05 

SPCC 

2 

3019 

3100 

3105 

Figure  19 

50 


vs. 


»TB>  system 


A.  THE  06CX8Z0N  TO  AUTOMATE  THE  SYSTEM 

While  the  changes  froe  the  old  flow  proceee  to  e 
■ore  etreaalined  proceaa  achieved  the  deaired 
ahort-run  effects  of  reducing  the  iaaediate  backlog, 
streamlining  the  process  and  improving  productivity, 
there  still  existed  areas  where  the  manual  process 
involved  could  not  be  improved  beyond  a  certain 
degree.  Further  analysis  revealed  that  long-run 
requirements  were  not  going  to  be  met  in  view  of  the 
continued  upward  trend  of  case  loads.  An  effort  to 
determine  the  reasons  behind  the  sharply- increased 
number  of  cases  in  the  past  couple  of  years  revealed 
a  greater  emphasis  being  placed  on  the  QDR  system  and 
the  addition  of  areas  not  previously  covered  by  the 
QDR.  This  led  to  the  conclusion  that  the  number  of 
cases  in  coming  years  would  continue  to  increase. 
Analysis  of  1983  caseload  for  the  period  of  January 
through  April  shows  a  projected  work  load  in  excise 
of  10.000  cases.  This  data  reveals  a  potential  case 
load  increase  for  1983  over  1982  of  over  Six.  Based 
on  his  upward  trend,  it  was  decided  to  continue  the 
evaluation  process  toward  an  office  automation 
system . 
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B.  THE  COST/ 


XT  ANALYSIS 


As  was  stated  earlier,  ths  flow  of  casss  into 
FMSO  revealed  no  significant  pattarn  during  any 
particular  tias  axcapt  that  the  total  nuabar  of  cases 
par  year  has  grown  at  a  rate  of  approximately  50X  per 
year  during  the  last  two  years.  Table  1  is  a 
breakdown  by  year  showing  the  total  number  of  cases 
that  came  in  to  FMSO,  an  average  monthly  case  load, 
the  growth  rate  between  one  year  and  the  next,  and 
the  overall  growth  rate  that  the  office  has 
experienced  from  January  1979  to  the  end  of  April 
1983. 


ANNUAL  CASS  LOAD  AND  PERCENTAGE  CHANGES 


YEAS 


YEAR 

TOTAL. 


MONTHLY 


TOTAL  * 


1979 

4002 

333.3 

4.4X 

1980 

4178 

348.2 

9.5X 

1981 

4373 

381.1 

159.9* 

48.9* 

1982 

6809 

367.4 

44.3* 

1983* 

10320 

860.0 

•  Projection 

of  workload  for 

1983  based  on  January  - 

April 

1983  totals. 

Currently,  there  exists  a  need  in 
GS-3,  two  GS-4'a  and  two  GS-5  Supply 


the  office  for  one 
System  Clerks,  and 


*2 


for  on*  GS-11  first  Lino  Supervisor.  Table  2  shows 
average  salaries  <plus  30*  for  benefits!  as  computed  by 
FMSO  using  the  NAVCOMP  Manual  formulas  for  computing 
local  average  acceleration  tables  for  salaries  paid  to 
government  service  personnel.  The  GS-11  first  Line 
Supervisor  is  not  included  in  this  table,  as  it  was  felt 
that  there  would  be  a  need  to  fill  this  position 
regardless  of  the  system.  Therefore,  a  position  of  cost 
avoidance  was  taken  in  the  cost/benefit  analysis  of  any 
system  under  consideration.  Table  2  further  shows  tha 
cost  of  the  current  time-sharing  system  that  is  currently 
installed.  Using  the  following  equation  derives  an 
hourly  rate  of  current  operations. 

T*  =  Total 

T 3s  =  Tine  share  sytem 

H  *  Work  hours  per  day 

W<i  *  Work  days  per  month 

H  =•  Months  per  year 

Hr  *  Hourly  rate  of  current 
operations 

T «  *  Tm 

. .  Hr 

H  •  W<j  *  M 


*91.617  ♦  *50.000 


2004 


•  *70.66 


TABLE  2 

AVERAGE  SALARIES  AND  COSTS  OF  CONTXNUXNB  ORIGINAL  SYSTEM 


rrn 

■  H  i  »r  f 

OUCiAflff  1 

TMrrrm 

TOTAL 

GS-3 

*10,645 

*13,840 

*12.242  • 

1.30 

•15,915 

GS-4 

*11,949 

*13,531 

*13,740  • 

1.30 

*17,862 

GS-3 

•13,369 

•17,383 

•15,376  • 

1.30 

•19,989 

Avaraga  Annual  Salary 
Plua  Banafita 

- - -  a  Hourly  Rata 

2004  Working  Houra 
Par  Yaar 


HOURLY 

*AI.S 

RATE 

GS-3 

•  7.94 

2  *  GS-4 

•  8.91 

2  •  GS-3 

*  9.97 

TIME  SHARE _ 

_ •24,13 

TOTAL  HOURLY 

RATE  OF  PRESENT 

SYSTEM  *70.68 


*15,913  ♦  <2  •  *17,862)  *  <2  *  *19,989)  »  *91,617 

Budgatad  Coat  of  Currant  Tiaa  Shara  Syataa  for 
Naxt  Yaar  »  *50,000 

Total  Salariaa  ♦  Tiaa  Shara  Syataa  *  *141,617 

Aaauaing  that  tha  hiring  of  thaaa  additional 
paraonnal  can  ba  avoidad  and  that  tha  currant 


tiaa-ahara  ayataa  la  diacontinuad,  diract  annual 
coata  aavinga  of  *141,617  can  ba  raalizad.  Aaauaing 
that  an  autoaatad  offica  ayataa  would  coat 
approxiaataly  *50,000,  tha  initial  payback  pariod  ia 
approxiaataly  four  aontha  aa  ahown  by  tha  following 


?4 


calculationa 


T«c  ■  Total  ayataa  coat 

Hr  *  Hourly  rata 

A«#h  *  Avaraga  work  houra  par  day 

Awd  *  Avaraga  work  daya  par  aonth 

Pp  ■  Payback  pariod  aaaaurad  In  aontha 


<<<T»C/Hr)/  A„h>  /  A„d)  -  Pp 


< <<50, 000/70. 68) /  A  >/  22)  «  4.02  aontha 

payback  pariod 


Tha  flgura  of  four  aontha  rapraaanta  a  aaxlaua 
payback  tlaa  ainca  tha  only  valuaa  takan  into 
conaidaratlon  at  thia  point  ara  tha  diract  coat 
aavinga  that  can  ba  aaaily  datarainad.  Tabla  3  ahowa 
tha  total  aaount  of  aonay  craditad  back  to  tha  Navy 
Stock  Fund  OfSF)  in  calendar  yaara  1381  and  1382. 
Averaging  thaaa  two  yaara  togathar  and  coaputing  tha 
daily  avaraga  aaount  of  caah  flow  back  to  tha  NSF 
each  working  day  la  worth  *18,780  in  avaraga  caah 
flow. 


TMLC  3 

QUALITY  DEFICIENCY  NEP0MT  CREDITS  BACK  TO  THE  NAVY 

STOCK  FUND 

YEAR  CREPITEP.Tg.HSf 

1981  *4,492,416  1381  *  1382 

- -  ■  *16,780 

1382  *4.407.904  22  Daya  •  12  Hontha 

AVERAGE  *4,423,360 


:  •  grjh  .w;* 
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Undar  tha  guidalinaa  of  NAVSUPXNST  4440. 120E, 
FHSO  has  tan  daya  in  which  to  procaaa  a  QDR.  At  tha 
tiaa  of  tha  original  ayataaa  analyaia,  thara  ax i a tad 
a  thirty-aavan-day  avaraga  aga  in  800  backloggad 
QDR'a.  Subtracting  tan  daya  (allowad  for  procaaaing> 
froa  tha  thirty  aavan  daya  in  tha  backlog  and 
■ultipling  tha  caah  flow  by  twanty-aavan  raaulta  in 
tha  coat  of  tha  backlog.  Zncraaaing  thia  by  10X  coat 
of  capital  (or  in  thia  caaa;  opportunity  coat)  uaad 
by  tha  fadaral  govarmant,  a  twanty-aavan-day  backlog 
plua  opportunity  coat  in  taraa  of  intaraat  rata  on 
that  backlog  can  ba  aaan  by  tha  following 
coaputationa : 

Calculation  1 : 

316,780  *  27  Daya  >  3453,060 

«  1.10* 

3498,366  ainiaua 
coat  of  backlog 

Calculation  2: 

316,780  •  36  Daya  ■  3604,080 

•  1.10X 


3664,488  aaxiaua 
coat  of  backlog 


Thi 


first  figure  is  ths 


Minimum  cost  of  a 


thirty-seven-day  average  age  backlog.  If  this 
backlog  could  be  turned  around  in  one  day,  a 
thirty-seven-day  average  age  backlog  can  represent  a 
considerable  aaount  sore  in  teres  of  cost  and 
interest  as  seen  by  the  second  coeputation  above. 

There  is  another  way  of  looking  at  the  coat  of  a 
backlog.  Totaling  the  aaount  credited  back  to  the 
NSF  in  calendar  years  1961  and  1962  and  dividing  by 
the  total  nuaber  of  cases  processed  during  those  two 
years  results  in  an  average  value  that  each  case 
represents.  Multiplying  this  case  value  by  the 
nuaber  of  cases  currently  in  the  office  at  any  given 
point  in  tiae  results  in  an  average  value  of  the 
backlog. 


Total  1981  &  1962  Credits 

-  *  Average  Value  of  a  Case 

Total  Cases  for  1981  &  1962 


*9,452.416  ♦  *4,407,504 

4,573  ♦  6,809 


•778 


800  cases  ■  *778  *  *622,400 
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This  final  figure  ia  vary  cloaa  to  tha  tha 
figuraa  obtainad  aarliar.  Whan  aithar  aat  of  figuraa 


la  brought 

into 

tha 

coat/banaf it 

analysis,  tha  mare 

ability 

to 

keep 

tha 

procasaing 

time  of  the  cases 

within 

the 

tans 

day 

alone  means  a  payback  of  tha 

ayataa  coata  within  waaka  rathar  month*. 

Thara  ara  soma  othar  araaa  whara  savings  can  ba 
raalizad  that  ara  not  so  dramatic.  Currantly,  tha 
work  ia  baing  handlad  by  aix  Supply  Syataa  Analysts 
and  thraa  Supply  Syataa  Clarks.  An  analysis  of 
actual  production  hours  ravaalad  that  312  days  <12x 
of  available  work  time)  wara  lost  to  annual  leave  and 
sick  time.  Effectively,  tha  office  was  functioning 
one  parson  short.  While  overtime  was  not  baing 
heavily  used  in  tha  office,  what  was  baing  used  was 
only  making  up  for  tha  affective  loss  of  tha  on* 
parson . 

Another  area  for  consideration  is  that  of  tha 
Supply  System  Analysts.  Currantly,  all  but  on*  of 
tha  SSA'a  wara  brought  into  tha  office  as  a  GS-9. 
Tha  othar  analyst  was  hired  originally  as  a  5-7-9 
trainee.  This  SSA  is  functioning  as  wall  as  any  of 
tha  others  in  ability  to  handle  tha  workload.  It  is 
conceivable  that,  as  the  currant  analysts 
ratlra/tranafar,  naw  analyst*  could  ba  brought  in  tha 
This  procedure  would  allow  for  the 


me  manner 


possibility  of  growth  on  ths  30b,  loss  cost  to  ths 
govsrnasnt  during  ths  training  period,  sdd  ths  nssdsd 
Infusion  of  youngsr  ideas,  and  instill  an  uplift  in 
gsnsrsl  aorals. 

Ths  intsngibls  bsnsfits  that  will  ba  raalizsd  by 
this  atrsaallning  of  ths  FMSO  procsss  will  asan  ths 
sliainatlon  of  a  major  bottlsnsck  in  ths  flow  of 
casss  from  ths  Flsst  to  ths  Ztsa  Nanagsrs  and  back  to 
ths  flsst.  This  will  not  bs  in  tsras  of  just  nsw 
casss  but  in  all  tranaactions  within  ths  QDR  procsss 
and  will  sffsct  ths  whols  Navy  Supply  Syatsa, 
producing  shortsr  rssponss  tiass  that  will  translats 
into  a  bsttsr  supply  ayataa  and  iaprovsd  cash  flow 
back  to  ths  NSF . 


C.  THE  PHOPOBED  AUTOMATED  SYSTEM  DESZ6N 

Ths  long  rangs  plans  of  FNSO  ars  to  install  a 
coaputsr-bassd  Hanagsasnt  Znforaation  Systsa.  It 
was,  therefore,  dacidsd  that  this  projsct  would  bs 
ths  ldssl  placs  to  start  by  using  a  prototyps 
iaplsssntation  procssa.  Undsr  this  procsss,  ths  ussr 
and  ths  dsvslopsr  can  work  aors  sffsctivsly  toward 
ths  snd  goal  of  achisvlng  a  vlabls  syatsa.  Ths 
prototyping  procssa  allows  for  a  fairly  quickly 
produced  ussr  product  that  is  a  starting  point  for 
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avaluatinon  and  critical  analyaia.  Tha  davalopar  can 
than  raviaa  and  inatall  a  naw  intaraadiata  varaion. 
Thia  flaxibility  allowa  unforaaaan  applicationa  to  ba 
incorportatad  into  tha  ovarall  ayataa  with  a  ainiaua 
of  diaruption. 

Tha  advantagaa  of  thia  approach  ara:  1>  Tha 

ayataa  ia  introducad  fairly  quickly;  2)  bacauaa  tha 
ayataa  ia  not  a  final  product,  it  ia  aaaiar  for  tha 
uaar  to  laarn;  3>  it  forcaa  atructura  to  tha 
applicationa  davalopaant  to  allow  changaa  to  ba  aada 
aaaily  and  quickly  without  coaplata  rawritaa;  4)  it 
allowa  tha  uaara  to  raalixa  thair  raal  naada  aa 
oppoaad  to  thair  pracaivad  naada;  S)  it  allowa  tha 
uaar  to  grow  with  tha  ayataa  rathar  than  hava  it 
handad  to  than  aa  ona  iaaanaa,  ovarwhalaing  packaga; 

6)  tha  and  product  will  ba  cloaar  to  tha  actual 
ayataa  raquiraaanta  than  othar  aathoda  provida,  and 

7)  it  allowa  for  a  aaoothar  tranaition  batwaan 
davalopar  and  uaar.  Thia  tranaition  can  ba 
accoapliahad  aaoothar  than  with  othar  aathoda  ainca 
tha  uaar 'a  ataff  haa  baan  involvad  with  tha 
davalopaant  of  aach  varaion  of  tha  ayataa  and  thua 
ara  alraady  faalllar  with  tha  ayataa.  A  nagativa 
factor  to  ba  conaidarad  la  that  it  can  prova  to  ba 
aora  axpanalva  in  taraa  of  actual  ayataa  davalopaant 
tiaa  than  othar  aathoda.  Alao,  thara  haa  to  ba  a 
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d«finit«  point  at  which  tha  in-houaa  ataff  aaauaaa 
raaponaibilitiaa  for  any  furthar  davalopaant  and 
aaintananca . 

Figura  20  ia  a  logical  rapraaantation  of  tha 
propoaad  ayataa.  Zt  includaa  tan  XBH  PC  work 
atationa;  two  printara  (ona  corraapondanca-quality 
daiay  whaal  printar  for  aaaaaga  traffic  or  fina 
lat tar equality  raporta  and  ona  high-apaad  dot  matrix 
printar  capabla  of  producing  lS-inch-wida  raporta  for 
intarnal  uaa > ,  and  a  natwork  ayataa  that  allowa  all 
workatationa  to  uaa  a  aharad  cantral  databaaa. 
Initial  prototyping  of  tha  ayataa  will  ba 
accoapliahad  at  tha  Naval  Poatgraduata  School  in  a 
Thaaia  by  Ron  Nlchola.  In  thia  ataga  tha  natwork 
will  only  utlllza  up  to  four  IBM  PC' a  to  aid  in  tha 
avaluatlon  of  tha  baat  waya  to  handla  tha  iaauaa  of 
databaaa  aanagaaant  protocola.  Whan  raaaarch  and 
davalopaant  at  tha  Naval  Poatgraduata  School  ia  fait 
to  ba  aufficiantly  coaplata,  paraonnal  from  FMSO  will 
ba  invitad  to  avaluata  lta  initial  parforaanca  prior 
to  inatallatlon.  Additional  XBH  PC' a  will  ba  addad 
during  final  aaaaably  at  FHSO  to  bring  tha  total 
nuabar  of  atationa  to  tan.  Furthar  davalopaant  of 
tha  ayataa  will  than  ba  turnad  ovar  to  FHSO  aftar  a 
abort  in-houaa,  full  ayataa  avaluatlon. 


61 


logical  &#pr-**«KU«t?o n  of  Propowd  Automated  Syataw 


a 


Work  SHtton 


work  Station 


Work  Station 


Work  Station 


Work  Station 


o 


■  *W(, 


1 

work  station 

I - * 

work  Station 

> 

1  Work  Station 

work  Station  i 

wo rk  Station  Systow  #att*r 


Print ar 

Pr Inter 

(lattar-Ouality 

! 

(Hiy>-So*ed 

Oalay  Wh*a! ) 

I 

Oot  »atrl») 

& 

wlncnaatar  Style 

Haro  Dlak  S ye tea 

with  gacx-uB  Caoaoli't'aa 

Figure  20 

Figure  21  ahowa  tha  praaant  floor  plan  currently 
In  axiatence  In  tha  Tachnical  Branch,  coda  9142,  at 
FMSO.  Thla  la  tha  offlca  into  which  tha  ayataa  la  to 
ba  inatallad.  Figura  22  ahowa  a  propoaad  floor  plan. 
Tha  propoaad  ayataa  would  allow  tha  iaaadiata  firat 
Lina  Suparvlaor,  who  la  a  working  floor  auparviaor, 
to  hava  a  work  atation  on  hia/her  daak.  Accaaa  to 
tha  data  for  aanaganant  purpoaaa  by  tha  aacond  Lina 
Suparvlaor  would  ba  through  tha  branch  aacratary'a 
work  atation. 

Thla  natwork  allowa  for  12S  work  atationa  (aight 
•aatar  atationa  aach  handling  up  to  alxtaan  uaar 
atationa).  At  praaant,  only  approxiaataly  13  davicaa 
ara  currantly  plannad  to  ba  attachad.  Follow  on 
applicatlona  could  ba  conaldarad  for  tha  adjoining 
officaa  in  tha  aaaa  phyaical  locality  and  within  tha 
aaaa  branch  <l.a.  codaa  9141,  91422  and  9143). 


D.  COST  0 F  PROPOSED  SYSTEM 

Tabla  4  containa  tha  Hat  of  ayataa  coaponanta, 
tha  quantity  and  total  coata.  Davalopaant  tlaa  of 
tha  nacaaaary  databaaaa  and  initial  application 
prograaa  will  ba  dona  aa  a  part  of  a  follow  on  thaaia 
that  will  axplora  tha  quaationa  concarnlng  databaaa 
aanaganant  and  natwork  control . 
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Figure  21 


ProooMd  Off tc*  Floor  Plan  With  httoortc  inouiiod 


Figure  22 
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By  using  this  systss  as  a  rsssarch  tool  and 
prototyping  ths  installation*  additional  costs 
savings  will  b#  realized  in  ths  procsss. 

Training  costs  ars  bsing  offset  by  having  placed 
an  IBM  PC  with  limited  database  in  the  office  for 
personnel  to  experience  and  experiment  with  as  time 
permits.  Having  this  system  physically  in  the  office 
allows  the  personnel  to  become  familar  with  it  and 
helps  to  reinforce  the  change  process  over  time. 


COMPONENTS  LIST  OF  PROPOSED  AUTOMATED  SYSTEM 


otv  description 


PRICE* 


10  ZBH  P.C.  w/2  320Kb  Disk  Drives 

10  Color/Graphics  Adapter 

lO  Color /Graphics  Monitors 


•18,430 
*  1,710 
8  4,760 


8  PCnet  Network  Adapter  Card 

1  PCnet  Starter  Kit 

400  ft  PCnet  Finished  Cable  -  RG59B/U  Coax 

1  Tri  Hex  Tool  (To  put  coax  together) 


S  5,560 
•  1,490 
«  200 
3  200 


1  Hodel  20  N/H  Omninet  Disk  System 

w/built-in  MIRROR  3  4,068 

1  Disk  Server  for  IBM  P.C.  3  891 


1  Okidata  93  Printer  3  900 
1  Diablo  630  Printer  w/keyboard  *  2,400 
1  Panasonic  N.V.  8200  Video  Recorder  3  1.178 


TOTAL 


•43, 7B7 


•Prices  based  on  current  GSA  contracts  with  the 
manufacturing/retail  companies. 


K.  ADDITIONAL  HANAOMNT  CONS  I  DC  AAT  IONS 

A  certain  compatibility  and  flexibility  on  tha 
part  of  tha  uaar  ia  aaaumad  in  any  racommandation  for 
a  naw  ayataa.  However*  am  Hachiavelli  obaarvad  in 
1513: 


"Thara  ia  nothing  aora  difficult  to  plan* 
aora  doubtful  of  auccaaa*  nor  aora  dangerous  to 
aanaga  than  tha  craation  of  a  naw  ayataa.  For 
tha  initiator  haa  tha  anaity  of  all  who  would 
profit  by  tha  praaarvation  of  tha  old  ayataa  and 
aeraly  lukawara  dafandara  in  thoaa  who  would  gain 
by  tha  naw  ona.M 

Baar  fRaf  l:  pp.  102-103J  idantifiaa  aoaa 


problaaa  in  tha  araa  of  changa.  Ha  atataa: 


MAa  paopla  bag in  to  angaga  in  tha  changa 
activities  and  tha  nagnituda  of  tha  aaotional  and 
aatarial  invaataant  raquirad  ara  firat  raalixad, 
aotivation  and  anthuaiaaa  for  tha  changa  will  ba 
aignif icantly  raducad.  For  tha  firat  tiaa, 
paopla  in  tha  organization  may  raaliza  that 
certain  praaant  aatiaf actions*  much  aa  tha 
plaaaura  of  pursuing  old  goals  or  bahaving  in 
accuatoaad  waya.  will  hava  to  ba  given  up  if  naw 
parforaanca  lavaia  ara  to  ba  accoapliahad. 

“Thara  ara  typically  four  araaa  in  which 
organizational  aaabara  aay  axparianca  loaaaa  dua 
to  changa: 

“l.  Loss  of  coapatanca. 

Hoat  changaa  place  daaanda  on  organizational 
aaabara  for  naw  attitudea,  skills,  and  behavior 
aa  former  waya  of  doing  thinga  auat  ba  diacardad. 
Tha  aanaa  of  coapatanca  which  coaaa  froa 
auccaaaful  parforaanca  of  old  rolaa  ia  diaiahad 
before  inaacurlty  and  threat  aaaociatad  with  naw 
role  daaanda  can  be  ovarcoaa. 

“2.  Loo*  of  rolat  lortships. 

Organizational  changaa  typically  mean  naw 
interaction  pattarna  aa  paopla  ara  raaaaignad  or 
naw  settings  for  declalon  making  ara  created. 
Tha  loaa  of  faalllar  and  valued  relationship*  and 
tha  energy  raquirad  to  work  out  naw  one*  ia 
experienced  aa  a  coat  of  changa  by  thoaa 

affected.  At  tha  plant  level,  tha  introduction 
of  autonoaoua  work  taaaa  typically  results  in  the 
craation  of  naw  relationships*  as  does  the 
introduction  of  pro3*ct  or  business  taaaa  when  an 
organization  novas  to  aatrix. 
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“3.  Loss  of  power. 

There  ars  f aw  organizational  changaa  that  do  not 
raault  in  a  shift  in  powsr  and  influsncs.  Soaa 
parts  of  tha  organization  and  aoaa  rola 
incus bant a  gain  powar  whila  othara  loss  it.  For 
example .  craating  aora  cha Hanging  jobs  on  tha 
shop  floor  raducaa  tha  traditional  powar  of  tha 
first  lina  auparviaor  and  usually  raaulta  in 
raaiatanca  to  change. 

“4.  Loss  of  OKtrlnsie  r swards. 

Organizational  changaa  raault  in  incraaaad 
coapanaation  and  perquisites  <of f icaa,  cars, 
parking  apacaa,  ate.)  for  aoaa.  Othara  aay  loss 
rawards  or  aaa  fawar  opportunitiaa  for  a 
significant  incraaaa  in  thaa  in  tha  futura. 

MAa  organizational  aaabara  coaa  faca  to  faca 
with  thaaa  changaa  in  thair  psychological 
contract  thay  bagin  to  loss  aotivation  to  change, 
aotivation  which  aay  hava  baan  high  in  £ha 
planning  atagaa.  Organization  inart ia  is 
intensified. " 


Tha  ability  to  introduca  changa  and  hava  it 


accaptad  ia  probably  tha  aoat  challanging  aapact  of  a 


ayataa  davalopar.  Therefore.  this  study  was 


approachad  froa  tha  standpoint  of  having  to  daal  with 
any  aapact  of  raaiatanca  to  changa  and  how  to  handla 
tha  raaiatanca  in  a  poaitiva,  productiva  aannar. 

Sines  tha  introduction  of  changa  can  ba  saan  also 


aa  a  procaaa  of  aanaging  conflict,  it  waa  dacldad  to 
uaa  Brown's  conflict  aanagaaant  intervention 
atratagiaa.  Brown  [Ref  2:  pp.  302-3CMQ  categorizes 
conflict  aanagaaant  intarvantlona  into  four 
categories: 

1.  Mad tract  behavior. 

This  includes  "redefining  iaauaa.  raising 
alternative  solutions.  altering  patterns  of 
communication  between  tha  parties,  or  revising  tha 
lmaadiata  behavior  of  rapraaantatlvaa. " 
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2.  Rafraee  ptrtpaetivw. 

Reframing  perapectivea  incxudea 

"reformulating  party  interata,  al taring  unraaliatic 
aterotypea,  changing  parapactivaa  on  tha  situation, 
and  aducating  partiaa  about  tha  dynaaica  of 
conflict. " 

3.  Reallocate  raaourcaa. 

Hara  Brown  auggaata  changing  “tha  charactar 
of  tha  intardapandanca  aaong  tha  partiaa,  or  altar 
tha  raaourcaa  aval labia  for  aanaging  conflict." 

4.  Realign  underlying  structural  force*. 

Thia  ia  tha  procaaa  of  “radafining 
boundariaa,  altarlng  thair  paraaability ,  raviaing 
formal  rulaa  and  procaduraa,  ranagotiating  informal 
norma  and  valuaa,  and  rafocuaing  organizational 
incantlvaa  that  influanca  conflict." 

Brown  furthar  offara  aoma  rulaa  of  thumb  by  which 
to  managa  conflict  by  intarvantion: 


"1.  Chooaa  targat  dynaaica  on  tha 
baaia  of  (1)  thair  centrality  to  conflict 
problama  and  <2)  tha  rlaka  and  banafita  of 
intarvant ion. 

"2.  Combina  intarvanora  to  davalop 
accaaa,  credibility,  and  raaourcaa 
appropriate  to  targat  dynaaica  and 
interventiona . 

"3.  Combine  interventiona 
aiaultanaoualy  or  in  aequanca  to  fit  tha 
raaourcaa  of  intarvanora  and  tha  damanda  of 
tha  aituation. 

"4.  Uaa  tha  aalf -reinforcing  quality 
of  conflict  dynaaica  to  <1>  Interrupt 
pattarna  of  rapraaantativa  interaction,  <2> 
redefine  and  raorganiza  interface 
interdependent  rapraaantativa  _  intaractlona 
and  interface  davalopmanta. "  pfaf  3:  pp. 

317-324T 


'  •****-  -rti  •  iifcitrfi  rtT-'  t 
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In  addition  to  thia  approach,  a  aariaa  of 


aaatinga  wara  achadulad  to  allow  paraonnal  tha 
opportunity  to  raact  to  idaaa  and  diacuaa  propoaad 
changea.  Thia  approach  adda  dapth  to  tha  aain 
aathodology.  It  allowa  a  faaling  of  participation,  a 
graatar  dagraa  of  aaotional  coaaitaant  to  tha  project 
by  paraonnal  who  otharwiaa  could  faal  alianatad  and 
dacraaaaa  thair  raaiatanca  to  tha  changa. 

Of tan  overlooked  whan  changa  haa  baan  introducad 
ia  tha  follow-up.  Baara  atataa: 


“Follow-up  ia  tha  kay  to  auataining 
motivation,  davaloping  aaotional  aupport  for 
managara  and  changa  aganta,  linking,  and 
davaloping  coapatanca.  Tha  iaportanca  of 
follow-up  ia  aupportad  by  raaaarch  which 
daaonatrataa  that  conaultant  lnvolvaaant  bafora 
and  aftar  taaa-building  intarvantiona  waa 
aaaociatad  with  graatar  affactivanaaa  whan 
coaparad  to  taaa-building  intarvantiona  in  which 
thara  waa  littla  conaultant  lnvolvaaant 
<Fr ladlandar ,  1968).  Similarly,  Frohaan  (1970) 
raporta  that  conaultant  help  and  guidanca 
lncraaaad  tha  aff activanaaa  of  aurvay  feedback 
intarvantiona. 

“Whila  it 'a  not  claar  froa  thaaa  raporta  what 
tha  conaultanta  did,  it  ia  likaly  that  thay 
halpad  paopla  davalop  coapatanca  naadad  to  aova 
changa  along,  brought  paopla  and  groupa  togather, 
halpad  tha  cllant  to  raviaw  progress,  provided 
aaotional  aupport,  and  in  ganaral  served  as  a 
symbol  and  prod  for  changa.  Thara  is  no  one  way 
to  follow-up.  By  definition,  follow-up 
activities  are  organic  and  can  only  be  planned  in 
raaponsa  to  events  as  they  davalop.  What  can  be 
spec if i ad  ara  tha  managerial  structuraa  and 
procaaaas  that  have  baan  found  useful  in  planning 
and  ensuring  follow-up  (Backhard  &  Harris, 
1977).“  ylaf  4:  pp.  10S] 


It  was  because  of  thaaa  aaauaptiona  a  prototype 
approach  was  decldad  upon.  This  approach  allowa  for 
tha  graataat  dagraa  of  flexibility  in  tha 
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introduction  of  changa.  At  ovary  ataga  of  tha 
procaaa,  tha  nacaaaary  aupporta  for  rainforcaaant  ara 
praaant  and  tha  total  ehanga  occura  piaca  by  piaca 
rathar  than  in  tha  fora  of  what  Gall  ^Raf  5:  pp.  20j 
rafara  to  aa  a  Cliaax  Daaign,  in  which  tha  largaat 
aoat  coaplax  ayataa  ia  introducad  ail  at  onca.  Thia 
typa  of  approach  ganarally  producaa  ayataaa  that 
axhibit  unaxpactad  bahavior  loading  to  raaiatanca. 
Aa  a  raault,  tha  ayataa  auffara. 
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VII. 


A.  CONCLUSIONS 

Tha  analysis  of  a  aaall  off lea's  work  flow  within 
a  largar  organizational  matting  has  baan  praaantad  in 
this  study.  From  this  analysis.  the  following 
conclusions  hava  baan  drawn: 

1.  Tha  adaption  of  a  naw  manual  flow  procass  has 
baan  shown  to  ba  a  viabla  altarnativa  to  full 
automation. 

2.  Tha  work  load  of  tha  of flea  is  incraasing  at 
an  avaraga  annual  rata  of  ovar  SIX. 

3.  Bacausa  this  trand  shows  indications  of 
continuing  upward  rathar  than  lavaling  off  or 
dacraaaing,  tha  manual  procassing  of  tha  workload 
will  continua  to  ba  a  problam  in  tha  forasaaabla 
futura. 

4.  It  is  apparant  that  a  fully  automatad  systam 
is  tha  bast  viabla  altarnativa  to  mast  tha  naadad 
lncraasa  in  productivity  in  tha  coming  yaars. 

».  NEC0NPKNMTI0N8 

1.  That  tha  work  flow  for  tha  Dafactiva  Notarial 
Sactlon  (coda  91423>  ba  fully  automatad. 
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2.  That  tha  Supply  Syataa  Analysts  ba  providad 
with  a  apaclfic  sat  of  job  standards  and  parforaanca 


lneantlvaa. 

3.  That  a  GS  5-7-9  training  prograa  ba 
aatabliahad  to  train  futura  Supply  Syataa  Analysts. 
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APPENDIX  A 


This  appendix  contains  complete  module  listings 
and  data  base  files  of  version  1.0  of  the  Interim 
Database  Management  System.  The  modules  are  arranged 
in  logical  order  of  their  position  within  the 
structured  hierarchy.  Included  herein  also  is  a 
general  lower  level  module  stub  used  to  aid  in  the 
development  of  a  higher  level  module. 


MAIN  MODULE  (MAIN. PRO) 

ERASE 

SET  TALK  OFF 
SET  COLON  OFF 
USE  QDR 

0  5.  10  SAY  “This  will  take  awhile." 

0  10.  10  SAY  “Pleaae  be  patient." 

0  15.  10  SAY  "I  will  let  you  know  when  I'm  done." 

DO  CNTR 

ERASE 

9  5.  10  SAY  “I'm  back.  Everything  is  counted  now. 

0  10.  10  SAY  "Shall  we  continue  <Y  or  N)?“ 

STORE  1  TO  X 
DO  WHILE  X  <  250 
STORE  X  ♦  1  TO  X 
ENDDO  Pause 
DO  Menu 


15 


COUNT  MODULE  (CNTR. PRO) 


STORE 

0 

TO 

Mtotal 

STORE 

0 

TO 

Mwork 

STORE 

0 

TO 

Mawtg 

STORE 

0 

TO 

M  job 

STORE 

0 

TO 

Mprocess 

STORE 

0 

TO 

McatO 

STORE 

0 

TO 

Mcatl 

STORE 

0 

TO 

Mcat2 

STORE 

0 

TO 

Mreaponse 

STORE 

0 

TO 

Mcloaeout 

STORE 

0 

TO 

Mtime 

STORE 

0 

TO 

Mcount 

STORE 

0 

TO 

Mtran 

STORE 

0 

TO 

Mclose 

STORE 

0 

TO 

Mtech 

STORE 

T 

TO 

Mf  lag 

STORE 

M 

"  TO  Mim 

STORE 

•  • 

•  • 

TO  Mcog 

NOTE  START  OF  COUNT  AND  UPDATE  ROUTINE 

DO  WHILE  .NOT.  EOF 


NOTE  COMPUTATION  OF  HOW  LONG  A  CASE  AWAITS  ACTUAL 
NOTE  PROCESSING  BY  AN  ANALYST 

IF  Date:in  <=  0  .AND.  Inlwork  <=  0 
SKIP 
LOOP 
ELSE 

STORE  Mtotal  *  1  TO  Mtotal 

0  23,  10  SAY  "Record  being  evaluated  is  number:"; 
GET  Htotal 

STORE  In: work  -  Date: in  TO  Kwork 
IF  Mwork  <*  0 

STORE  1  TO  Mwork 
ENDIF  Zero  Check 
STORE  Hawtg  ♦  Mwork  TO  Mawtg 
STORE  O  TO  Mwork 
ENDIF  Mawtg 


* 


NOTE  ANALYST  CODE  EVALUATION  SECTION 


STORE  Tech: code  TO  Mtach 
SELECT  SECONDARY 
USE  B:Techcode 

DO  WHILE  .NOT.  EOF  .AND.  Mflag 
IF  Tech  »  Mtech 

REPLACE  Countar  WITH  Countar  ♦  1 
STORE  F  TO  Mflag 
ELSE 
SKIP 
LOOP 

ENDIF  Techcode 
ENDDO  Not  EOF 
IF  Mf lag 

APPEND  BLANK 
REPLACE  Tech  WITH  Mtech 
REPLACE  Counter  WITH  1 
ENDIF  Mf lag 


NOTE  80  BACK  TO  PRIMARY  DATABASE  FILE  <QDR> 

NOTE  EVALUATE  THE  COQ  CODE  OF  THE  CASE 

SELECT  PRIMARY 
STORE  Cog  TO  Mcog 
STORE  T  TO  Mf lag 
SELECT  SECONDARY 
USE  B:Cogcount 

DO  WHILE  .NOT.  EOF  .AND.  Mflag 
IF  Cog  =  Mcog 

REPLACE  Counter  WITH  Counter  *  1 
STORE  F  TO  Mflag 
ELSE 
SKIP 

ENDIF  Cog  *  Mcog 
ENDDO  Not  EOF 
IF  Mflag 

APPEND  BLANK 
REPLACE  la  WITH  Mim 
REPLACE  Counter  WITH  1 
ENDIF  Mflag 


NOTE  EVALUATE  THE  ITEM  MANAGER  FIELD  OF  THE  CASE 

STORE  Itaa:agr  TO  Mia 
STORE  T  TO  Mflag 
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SELECT  SECONDARY 
USE  B: Incount 

DO  WHILE  .NOT.  EOF  .AND.  Mflag 
IF  In  »  Him 

REPLACE  Countar  WITH  Counter  ♦  1 
STORE  F  TO  Mf lag 
ELSE 
SKIP 

ENDIF  In  la  Min 
ENDDO  Not  EOF 
IF  Mflag 

APPEND  BLANK 
REPLACE  In  WITH  Min 
REPLACE  Countar  WITH  1 
ENDIF  Mflag 


NOTE  RETURN  TO  THE  PRIMARY  DATABASE  FILE  (QDR) 

NOTE  CHECK  THE  CASE  FOR  THE  CATEGORY  AND  ERROR  TRAP 
NOTE  WRONG  CATEGORY  CODES 

SELECT  PRIMARY 
IF  Category  =  "1" 

STORE  Mcatl  ♦  1  TO  Mcatl 
ELSE 

IF  Category  =  “2" 

STORE  Mcat2  ♦  1  TO  Mcat2 
ELSE 

STORE  McatO  ♦  1  TO  McatO 
ENDIF  Cat2 
ENDIF  Catl 


NOTE  EVALUATE  THE  ACTUAL  TIME  IT  TOOK  TO  GET  THE 
NOTE  CASE  PROCESSED  IN  THE  OFFICE  AND  OUT  TO  THE 
NOTE  ITEM  MANAGER  < INITIAL  PROCESSING  TURN  AROUND 
NOTE  TIME) 

IF  Transmit  <=  0 
SKIP 
LOOP 
ELSE 

STORE  Mtran  ♦  1  TO  Mtran 

STORE  Transmit  -  In:work  TO  Mwork 

IF  Mwork  <  *  0 

STORE  1  TO  Mwork 
ENDIF  Zero  Check 
STORE  Mjob  ♦  Mwork  TO  M^ob 
STORE  0  TO  Mwork 
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NOTE  EVALUATION  OF  ACTUAL  TURN  AROUND  TIME  FROM 
NOTE  ARRIVAL  TO  TRANSMITTAL  OF  CASE 


STORE  Transmit  -  Data :in  TO  Mwork 
IF  Mwork  <=  0 

STORE  1  TO  Mwork 
ENDIF  Zero  Check 

STORE  Mproceaa  *  Mwork  TO  Mprocaaa 
STORE  0  TO  Mwork 
ENDIF  Transmit  Check 


NOTE  EVALUATION  PROCESS  AS  TO  HOW  LONG  IT  TAKES  THE 
NOTE  ITEM  MANAGER  TO  PROCESS  A  CASE  AND  RETURN  IT  TO 
NOTE  FMSO  FOR  CLOSE  OUT  ACTIONS 

IF  Response  <~  0 
SKIP 
LOOP 
ELSE 

STORE  Mcount  ♦  1  TO  Mcount 

STORE  Response  -  Transmit  TO  Mwork 

IF  Mwork  <=  0 

STORE  1  TO  Mwork 
ENDIF  Zero  Check 

STORE  Mreaponae  ♦  Mwork  TO  Mresponse 
STORE  O  TO  Mwork 
ENDIF  Response  Check 


NOTE  EVALUATION  OF  HOW  LONG  IT  TAKES  FMSO  TO  CLOSE 
NOTE  A  CASE  OUT  AFTER  RECEIPT  BACK  FROM  THE  ITEM 
NOTE  MANAGER 

IF  Closeout  <  =  0 
SKIP 
LOOP 
ELSE 

STORE  Mclose  ♦  1  TO  Mclose 
STORE  Closeout  -  Response  TO  Mwork 
IF  Mwork  <*  O 

STORE  1  TO  Mwork 
ENDIF  Zero  Check 

STORE  Mcloseout  *  Mwork  TO  Mcloseout 
STORE  0  TO  Mwork 


NOTE  EVALUATION  AS  TO  HOW  LONS  XT  TOOK  TO  PROCESS 
NOTE  THE  CASE  FROM  ARRIVAL  FM80  UNTIL  XT  UA8  CLOSED 
NOTE  OUT  AND  DISPOSITION  INSTRUCTIONS  ISSUED 


STORE  Closeout  -  Data: in  TO  Mwork 
IF  Mwork  <=  0 

STORE  1  TO  Mwork 
ENDIF  Zaro  Chack 
STORE  Mtima  ►  Mwork  TO  Mtime 
STORE  0  TO  Mwork 
ENDIF  Closeout  Check 
SKIP 

ENDDO  Count 


NOTE  STATISTICS  FROM  THE  DATABASE  ARE  CAPTURED  AND 
NOTE  STORED  TO  DISK  TO  CREATE  A  DYNAMIC  ON  GOING 
NOTE  PROCESS  TO  ELIMINATE  THE  TIME  CONSUMING  PROCESS 
NOTE  OF  COUNTING  EVERY  RECORD  WHENEVER  A  REPORT  IS 
NOTE  NEEDED 

USE  B : QDRSTATS 

REPLACE  Total  WITH  Mtotal  ♦  Total 

REPLACE  Awtg  WITH  Mawtg  ♦  Awtg 

REPLACE  Job  WITH  Mjob  -  Job 

REPLACE  Process  WITH  Mprocess  ♦  Process 

REPLACE  CatO  WITH  McatO  *  CatO 

REPLACE  Catl  WITH  Mcatl  *  Catl 

REPLACE  Cat2  WITH  Mcat2  *  Cat2 

REPLACE  Response  WITH  Mresponse  ♦  Response 

REPLACE  Closeout  WITH  Mcloseout  *  Closeout 

REPLACE  Time  WITH  Mtima  *  Time 

REPLACE  Counter  WITH  Mcount  ♦  Counter 

REPLACE  Tran  WITH  Mtran  *  Tran 

REPLACE  Closed  WITH  Mclosed  ♦  Closed 

SELECT  PRIMARY 

RETURN 
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MENU  MODULE  (MENU. PRQ) 


STORE  T  TO  Continue 
STORE  M  ”  TO  Reply 
SET  TALK  OFF 
SET  COLON  OFF 


DO  WHILE  Continue 
ERASE 


9 

4, 

35 

SAY  "MAIN  MENU" 

9 

6. 

19 

SAY  "Select  and  enter  the  number  of  your 

"choice : 

ia 

9 

a. 

21 

SAY  "1. 

APPEND  Records" 

9 

9. 

21 

SAY  "2. 

EDIT  Records 

9 

li. 

21 

SAY  "3. 

Produce  Turn  Around  Time  Report 

9 

12, 

21 

SAY  "4. 

Produce  System  Analyst  Case”; 

"Load  Report . " 

9 

13, 

21 

SAY  "5. 

Produce  Complete  Management"; 

"Report. 

•  • 

9 

15. 

21 

SAY  "6. 

Quit  dBase  II  Program." 

READ 

DO 

CASE 

CASE  REPLY  =  "l" 
DO  ADDREC 
CASE  REPLY  «  "2" 
DO  QDREDIT 
CASE  REPLY  =  "3“ 
DO  TAT 

CASE  REPLY  =  "4" 
DO  CASELOAD 
CASE  REPLY  =  "5" 
DO  MGR 

CASE  REPLY  =  "S" 
QUIT 

OTHERWISE 

LOOP 

ENDCASE  Reply 
ENDDO  Continue 
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GENERAL  MODULE  STUB 


STORE  T  TO  Ccontinue 
DO  WHILE  Continue 
ERASE 

Q  5,  10  SAY  "This  ia - " 

0  10,  10  SAY  "Shall  we  continue  <Y  or  N)  ? 
WAIT  to  Output 
IF  * (Output)  =  ' Y' 

STORE  F  TO  Continue 
ELSE 
LOOP 

ENDIF  Ooutput  Check 
ENDDO  Continue 
RETURN 


P2 


.f<W.  mizuma 


RECORD  EDITING  MODULE  (QDREDZT. PRG) 


SELECT  PRIMARY 
USE  B:Qdr  INDEX  B:Cases 
STORE  T  TO  Mflagl 
STORE  T  TO  Mf lag2 
DO  WHILE  Mflagl 
ERASE 

STORE  "  "  TO  Mcasenr 

DO  WHILE  M£lag2 

(3  20,  20  SAY  "ENTER  CASE  NUMBER: 

GET  Mcasenr  PICTURE  "XXXXXXXXX" 

READ 

IF  Mcasenr  =  "  ** 

STORE  F  TO  Mflagl 
STORE  F  TO  Mflag2 
LOOP 

ENDIF  Blank  case  number 
FIND  SiMcasenr 
IF  #  =  0 

a  22.  20  SAY  "CASE  NOT  FOUND,  PLEASE  REENTER" 
ELSE 

STORE  F  TO  Mflag2 
ENDIF  Record  not  found 
ENDDO  Mflag2 
IF  .NOT.  Mflagl 
LOOP 

ENDIF  Mflagl 

STORE  Date: in  TO  Cdate:in 
STORE  In : work  TO  Cin:work 
STORE  Case: nr  TO  Cease: nr 
STORE  Cog  TO  Ccog 
STORE  Tech: code  TO  Ctech:code 
STORE  Item: mgr  TO  Citem:mgr 
STORE  Category  TO  Ccategory 
STORE  Transmit  TO  Ctransmit 
STORE  Response  TO  Cresponse 
STORE  Closeout  TO  Ccloaeout 
ERASE 

3  10,  5  SAY  "DATE:  IN  "  GET  DATE:  IN  PICTURE  "9999 

®  11,  5  SAY  "IN -.WORK  "  GET  IN: WORK  PICTURE  "9999 

3  12,  5  SAY  "CASE : NR  "  GET  CASE : NR  PICTURE: 

"XXXXXXXXX" 

a  13,  5  SAY  "COG  "  GET  COG  PICTURE  "XX" 

0  14,  5  SAY  "TECH: CODE  "  GET  TECH: CODE  PICTURE: 

*'39** 


GET  ITEM: MGR  PICTURE 


a  15.  5  SAY  "ITEM: MGR  " 

"XXXX" 

a  16.  5  SAY  "CATEGORY  "  GET  CATEGORY  PICTURE  "X" 

a  17,  5  SAY  "TRANSMIT  "  GET  TRANSMIT  PICTURE; 
"9999" 

a  18,  5  SAY  "RESPONSE  "  GET  RESPONSE  PICTURE: 
"9999" 

a  19,  5  SAY  "CLOSEOUT  "  GET  CLOSEOUT  PICTURE; 
"9999" 

READ 

IF  P.COG  <>  CCOG 
SELECT  SECONDARY 
USE  B :COGCOUNT 
STORE  T  TO  Mf lag 
STORE  0  TO  Mcounter 
DO  WHILE  .NOT.  EOF  .AND.  Mflag 
IF  CCOG  *  COG 

REPLACE  Counter  WITH  Counter  -  1 
STORE  Mcounter  *  1  TO  Mcounter 
ELSE 

IF  P.COG  =  S.CQG 

REPLACE  Counter  WITH  Counter  *  1 
STORE  Mcounter  ♦  1  TO  Mcounter 
ENDIF  P  =  S 
ENDIF  CCOG  =  COG 
IF  Mcounter  =  2 
STORE  F  TO  Mflag 
ENDIF  Mcounter  =  2 
SKIP 

ENDDO  NOT  EOF 
IF  Mflag 

APPEND  BLANK 

REPLACE  S.COG  WITH  P.COG 
REPLACE  Counter  WITH  1 
ENDIF  Mflag 
ENDIF  <> 

IF  P.TECH:CQDE  <>  CTECH:CODE 
SELECT  SECONDARY 
USE  B:Techcode 
STORE  T  TO  Mflag 
STORE  O  TO  Mcounter 
DO  WHILE  .NOT.  EOF  .AND.  Mflag 
IF  CTECHJCODE  =  TECH 

REPLACE  Counter  WITH  Counter  ♦  1 
STORE  Mcounter  ♦  1  TO  Mcounter 
ELSE 

IF  TECH  »  TECH :CODE 

REPLACE  Counter  WITH  Counter  ♦  1 


STORE  Mcounter  ♦  1  TO  Mcounter 
ENDIF  S  *  P 

ENDIF  CTECH :CODE  =  TECH 
IF  Mcounter  =  2 
STORE  F  TO  Mf lag 
ENDIF  Mf lag 
SKIP 

ENDDO  While  Not  EOF 
IF  Mf lag 

APPEND  BLANK 

REPLACE  TECH  WITH  TECH: CODE 
ENDIF  Mf lag 
ENDIF  TECH: CODE 
IF  P . ITEM : MGR  <>  CITEM : MGR 
SELECT  SECONDARY 
USE  B: Incount 
STORE  T  TO  Mf lag 
STORE  0  TO  Mcounter 
DO  WHILE  .NOT.  EOF  .AND.  Mflag 
IF  CITEM : MGR  =  IB 

REPLACE  Counter  WITH  Counter  -  1 
STORE  Mcounter  ♦  1  TO  Mcounter 
ELSE 

IF  IM  =  ITEM:MGR 

REPLACE  Counter  WITH  Counter  -  1 
STORE  Mcounter  ♦  1  TO  Mcounter 
ENDIF  IM  *  ITEM: MGR 
ENDIF  CITEM: MGR  *  IM 
IF  Mcounter  *  2 
SOTRE  F  TO  Mflag 
ENDIF  Mcounter  =  2 
SKIP 

ENDDO  Not  EOF 
IF  Mflag 

APPEND  BLANK 

REPLACE  IM  WITH  ITEM: MGR 
REPLACE  Counter  WITH  1 
ENDIF  Mflag 
ENDIF  <> 

SELECT  SECONDARY 
USE  B:B  Qdratata 

IF  CRESPONSE  <>  0  .AND.  P. RESPONSE  =  0 
REPLACE  Counter  WITH  Counter  -  1 
ELSE 

IF  CRESPONSE  «  0  .AND.  P. RESPONSE  >  0 
REPLACE  Counter  WITH  Counter  *  1 
ENDIF 

ENDIF  Counter 

IF  CTRANSMIT  <>  0  .AND.  P. TRANSMIT  *  0 
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REPLACE  Tran  WITH  Tran  - 
ELSE 

IF  CTRANSMIT  *  0  .AND.  P. TRANSMIT  =  O 
REPLACE  Tran  WITH  Tran  ♦  1 
ENDIF 

ENDIF  Tran 

IF  CCLOSEOUT  <>  0  .AND.  P. CLOSEOUT  =  0 
REPLACE  Cloaed  WITH  Closed  -  1 
ELSE 

IF  CCLOSEOUT  =  0  .AND.  P. CLOSEOUT  >  0 
REPLACE  Closed  WITH  Cloaed  *  1 
ENDIF 

ENDIF  Closed 

IF  P. CATEGORY  <>  CCATEGORY 
DO  CASE 

CASE  CCATEGORY  *  "l" 

REPLACE  Catl  WITH  Catl  -  1 
CASE  CCATEGORY  =  "2" 

REPLACE  Cat2  WITH  Cat2  -  1 
OTHERWISE 

REPLACE  CatO  WITH  CatO  -  1 
ENDCASE 
DO  CASE 

CASE  CATEGORY  =  "1“ 

REPLACE  Catl  WITH  Catl  *  1 
CASE  CATEGORY  *  "2" 

REPLACE  Cat2  WITH  Cat2  *  1 
OTHERWISE 

REPLACE  CatO  WITH  CatO  *  1 
ENDCASE 

ENDIF  CATEGORY  <> 

STORE  CIN: WORK  -  CDATE : IN  TO  Cawtg 
STORE  CTRANSMIT  -  CIN: WORK  TO  Cjob 
STORE  CTRANSMIT  -  CDATE: IN  TO  Cprocess 
STORE  CCLOSEOUT  -  CRESPONSE  TO  Cclosed 
STORE  CRESPONSE  -  CTRANSMIT  TO  Cresponse 
STORE  CCLOSEOUT  -  CDATE: IN  TO  Ctiae 
STORE  IN: WORK  -  DATE: IN  TO  Mawtg 
STORE  TRANSMIT  -  IN: WORK  TO  M;job 
STORE  TRANSMIT  -  DATE: IN  TO  Mprocesa 
STORE  RESPONSE  -  TRANSMIT  TO  Mresponse 
STORE  CLOSEOUT  -  RESPONSE  TO  Mcloseout 
STORE  CLOSEOUT  -  DATE: IN  TO  Mtiae 
IF  Cawtg  »  0 

STORE  1  TO  Cawtg 
ELSE 

IF  Cawtg  <  0 

STORE  0  TO  Cawtg 
ENDIF  <  O 
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ENDIF  Cawtg  *  0 
IF  C}ob  3  0 

STORE  1  TO  C}ob 
ELSE 


IF  Cjob  <  0 

STORE  0  TO  Cjob 
ENDIF  <  0 
ENDIF  C}ob  3  0 
IF  Cproceaa  =  0 

STORE  1  TO  Cprocaaa 
ELSE 

IF  Cprocaaa  <  0 


STORE  0  TO  Cproceaa 
ENDIF  Cproceaa  <  0 
ENDIF  Cproceaa  3  0 
IF  Ccloaed  =  0 

STORE  1  TO  Ccloaed 
ELSE 


IF  Ccloaed  <  0 

STORE  0  TO  Ccloaed 
ENDIF  Ccloaed  <  O 
ENDIF  Ccloaed  3  0 


IF  Creaponae  3  0 

STORE  1  TO  Creaponae 
ELSE 

IF  Creaponae  <  0 

STORE  0  TO  Creaponae 
ENDIF  Creaponae  <  0 
ENDIF  Creaponae  3  0 
IF  Ctime  3  0 

STORE  1  TO  Ctime 
ELSE 


IF  Ctiae  <  0 

STORE  O  TO  Ctiae 
ENDIF  Ctiae  <  0 
ENDIF  Ctime  3  0 


IF  Mawtg  3  0 

STORE  1  TO  Mawtg 
ELSE 

IF  Mawtg  <  0 

STORE  0  TO  Mawtg 
ENDIF  Mawtg  <  0 
ENDIF  Mawtg  3  0 
IF  M^ob  3  0 

STORE  1  TO  M3 ob 
ELSE 


IF  M:ob  <  0 

STORE  0  TO  M3ob 
ENDIF  M30b  <  0 
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EMDIF  Mjob  *  0 
IF  Mprocesa  *  0 

STORE  1  TO  Mproceas 
ELSE 

IF  Mprocesa  <  0 

STORE  0  TO  Mprocesa 
ENDIF  Hprocaaa  <  0 
ENDIF  Hproceas  =  O 
IF  Mreaponae  =  0 

STORE  1  TO  Mreaponae 
ELSE 

IF  Mreaponae  <  0 

STORE  0  TO  Mreaponae 
ENDIF  Mreaponae  <  0 
ENDIF  Mreaponae  *  0 
IF  Mcloaeout  =  0 

STORE  1  TO  Mcloaeout 
ELSE 

IF  Mcloaeout  <  0 

STORE  0  TO  Mcloaeout 
ENDIF  Mcloaeout  <  O 
ENDIF  Mcloaeout  =  O 
IF  Mtiae  -  O 

STORE  1  TO  Mtiae 
ELSE 

IF  Mtime  <  0 

STORE  0  TO  Mtime 
ENDIF  Mtiae  <  0 
ENDIF  Mtime  *  0 

REPLACE  Awtg  WITH  Awtg  ♦  Mawtg  -  Cawtg 
REPLACE  Job  WITH  Job  ♦  M]ob  -  Cjob 

REPLACE  Process  WITH  Process  *  Mproceaa  -  Cprocess 
REPLACE  Reaponae  WITH  Response  *  Mreaponae 

Creaponae 

REPLACE  Cloaeout  WITH  Closeout  ♦  Mcloseout 

Ccloaeout 

REPLACE  Time  WITH  Tima  «■  Mtime  -  Ctime 
STORE  T  TO  Mflsg2 
SELECT  PRIMARY 
ENDDO  Mflagl 
RETURN 


TURN  AROUND  TIME  MODULE  (TAT.  PRO) 

SELECT  SECONDARY 
USE  B:Qdratats 

STORE  Proceaa/Total  »  1.00  TO  Mtat 
STORE  Awtg/Tran  *  1.00  TO  Maapt 
STORE  Job/Total  »  1.00  TO  Mapt 
STORE  Reaponaa/Counter  •  1.00  TO  Mimr 
STORE  Cloaeout/Closed  •  1.00  TO  Mcot 
STORE  Time/Counter  •  1.00  TO  Mtime 
STORE  T  TO  Crt 
STORE  T  TO  Continue 

DO  WHILE  Continue 
ERASE 

<3  5,  10  SAY  "Do  you  want  a  printed  report  ” 

" < Y  or  N)?“  GET  Reply  PICTURE  "X" 

READ 
DO  CASE 

CASE  ! (Reply)  »  "Y" 

ERASE 

SET  PRINT  ON 
SET  SCREEN  OFF 
SET  FORMAT  TO  PRINT 
STORE  F  TO  Crt 
STORE  F  TO  Continue 
CASE  ! (Reply)  =  "N" 

STORE  F  TO  Continue 
OTHERWISE 
LOOP 

ENDCASE  Optional  print 
ENDDO  Continue 
ERASE 

a  5.  21  SAY  "TURN  AROUND  TIME  REPORT  FOR  CODE"; 
"91423" 

3  7,  10  SAY  "The  average  turn  around  time  to  ”♦ 

"date  ia .  "*STR(Mtat,6,2> 

a  Q.  10  SAY  "The  average  awaiting  process  time 

"ia  .  " *STR ( Maapt ,6,2) 

a  9,  10  SAY  "The  average  proceaaing  time  "♦; 

"ia  .  "♦STR(Mapt,6, 2) 

a  10,  10  SAY  "The  average  time  awaiting  item 
"manager  reaponae  ia  "*STR(Mimr,6,2) 
a  11,  10  SAY  "The  average  time  to  cloae  out  a  " ♦ 

"came  is .  "♦STR(Mcot,6.2> 

a  13,  10  SAY  "The  average  turn  around  time  of  "+ 
"a  came  from" 
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(3  14,  10  SAY  "arrival  at  FHSO  to  final  cloaa  " 

"out  is . "♦STR(Mtime, 6, 2> 

0  16,  10  SAY  "Tha  total  nuabar  of  caaas  in  the  “ 
"database  is  .  .  .  " *STR (Total , 6 , 0) 

9  17,  10  SAY  “Tha  total  nusber  of  cases  sent  to 
"item  managers  is  "♦STR(Tran,6,0) 
a  18,  10  SAY  “The  total  caaas  responded  to  by  "♦ 
"item  managers  is  “+STR (Counter, 6,0) 
a  IS,  10  SAY  “The  total  cases  closed  out  to 

"date  are  .  "♦STR(Closed,6,0) 

STORE  T  TO  Continue 
DO  WHILE  Continue 
IF  Crt  *  T 

a  22,  10  SAY  "Do  you  wish  to  continue 

"CY  or  N>?"  GET  Reply  PICTURE  "X" 

READ 

IF  t (Reply)  =  "Y" 

SELECT  PRIMARY 
DO  Menu 
ELSE 
LOOP 

ENDIF  Reply 
ELSE 
EJECT 

SET  PRINT  OFF 
SET  SCREEN  ON 
SET  FORMAT  TO  SCREEN 
ENDIF  Crt 

a  15,  10  SAY  "Do  you  wish  to  continue 

"(Y  or  N>?"  GET  Reply  PICTURE  "X" 

READ 

IF  ! (Reply )  =  "Y" 

SELECT  PRIMARY 
DO  Manu 
ELSE 
LOOP 

ENDIF  Reply 
ENDDO  Continue 


SYSTEM  ANALYST  CASE  LOAD  MODULE  (CASELOAD.  PRG> 


STORE  T  TO  Crt 
STORE  T  TO  Continue 
STORE  O  TO  Mpe 
STORE  0  TO  Macl 
STORE  0  TO  Manai 
STORE  ’*  "  TO  Reply 

SELECT  SECONDARY 
USE  B:Qdratata 
ERASE 

0  8,  10  SAY  "How  many  analyst  are  currently 

"assigned?  "  GET  Manai  PICTURE  "9" 

<3  10,  10  SAY  "Do  you  want  a  printed  report 
"  Y  or  N)?  "  GET  Reply  PICTURE  "X" 

READ 

STORE  Total /Manai  «  1.00  TO  Macl 

DO  WHILE  Continue 
ERASE 
DO  CASE 

CASE  ! (Reply)  =  "Y" 

ERASE 

SET  PRINT  ON 
SET  SCREEN  OFF 
SET  FORMAT  TO  PRINT 
STORE  F  TO  Crt 
STORE  F  TO  Continue 
CASE  ’(Reply)  =  "N" 

STORE  F  TO  Continue 
OTHERWISE 
LOOP 

ENDCASE  Optional  print 
ENDDO  Continue 

ERASE 

3  5,  23  SAY  "SUPPLY  SYSTEM  ANALYST  CASE  LOAD  REPORT" 

SELECT  PRIMARY 

USE  B:Qdrstats 

SELECT  SECONDARY 

USE  B:Techcode 

SORT  ON  Tech  TO  B:Sortfile 

SELECT  SECONDARY 

USE  B:Sort£ile 

STORE  7  TO  Mcntr 

DO  WHILE  .NOT.  EOF  .AND.  Mcntr  <  24 
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STORE  Mcntr  ♦  1  TO  Mcntr 
STORE  Counter /Total  *  100.00  TO  Mpc 
9  Mcntr,  10  SAY  “Total  cases  processed  to  date  "* 
“by  analyst  "♦STR(Tech,2.0> ♦“ :  “♦; 

STR( Counter, 6,0)  *“  "*STR(Mpc,5.2> *"» 

SKIP 

ENDDO  While  not  EOF  and  Mcntr  <  24 

9  Mcntr+3,  29  SAY  “The  analyst  case  load  is: 

♦  STR  < Mac 1 ,7,2) 

STORE  T  TO  Continue 

DO  WHILE  Continue 
IF  Crt  =  T 

0  22,  10  SAY  "Do  you  wish  to  continue  <Y  or  N)? 
GET  Reply  PICTURE  "X” 

READ 

IF  ! (Reply)  =  “Y“ 

SELECT  PRIMARY 
DO  Menu 
ELSE 
LOOP 

ENDIF  Reply 
ELSE 
EJECT 

SET  PRINT  OFF 
SET  SCREEN  ON 
SET  FORMAT  TO  SCREEN 
ENDIF  Crt 

0  15,  10  SAY  “Do  you  wi3h  to  continue  (Y  or  N)?“; 
GET  Reply  PICTURE  "X" 

READ 

IF  ! (Reply )  =  “Y“ 

SELECT  PRIMARY 
DO  Menu 
ELSE 
LOOP 

ENDIF  Reply 
ENDDO  Continue 
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COMPLETE  MANAGEMENT  REPORT  MODULE  (MGR. PRG) 

SELECT  SECONDARY 
USE  B:Qdrstata 

STORE  Process/Total  *  1.00  TO  Mtat 
STORE  Awtg/Tran  »  1.00  TO  Naapt 
STORE  Job/Total  *  1.00  TO  Mapt 
STORE  Reaponae/Counter  •  1.00  TO  Mi»r 
STORE  Closeout /Closed  •  1.00  TO  Mcot 
STORE  Time/Counter  «  1.00  TO  Mtime 
STORE  Total  -  Tran  TO  Mtoh 
STORE  Counter  -  Cloaed  TO  Mtip 
STORE  Tran  -  Counter  TO  M30 
STORE  0  TO  Mpc 
STORE  0  TO  Manal 

STORE  Total/Manal  *  1.00  TO  Macl 
STORE  "  "  TO  Reply 
STORE  T  TO  Crt 
STORE  T  TO  Continue 


DO  WHILE  Continue 
ERASE 

3  12,  10  SAY  "Do  you  want  a  printed  report 
" (Y  or  N)?  "  GET  Reply  PICTURE  "X" 

0  14,  10  SAY  "How  many  analyst  are  currently  ”♦ 
“assigned?  "  GET  Manal  PICTURE  "9" 

READ 
DO  CASE 

CASE  ! (Reply)  =  "Y” 

ERASE 

SET  PRINT  ON 
SET  SCREEN  OFF 
SET  FORMAT  TO  PRINT 
STORE  F  TO  Crt 
STORE  F  TO  Continue 
STORE  5  TO  Mcnt 
CASE  ! (Reply)  =  "N" 

STORE  F  TO  Continue 
STORE  1  TO  Mcnt 
OTHERWISE 
LOOP 

ENDCASE  Optional  print 
ERASE 

0  Mcnt,  21  SAY  "MANAGEMENT  REPORT  ON  CODE 
914S3B 
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0  Mcnt*2.  21  SAY  "***  AVERAGE  PROCESSING 
TIMES  ***“ 

9  Mcnt*3,  5  SAY  "The  average  initial  turn 

"around  time  is . "; 

*STR<Mtat ,6,2) 

9  Mcnt*4,  5  SAY  "The  average  awaiting  process  " * ; 

"tine  is . 

STR<Maapt,€>,2> 

9  Mcnt*5,  5  SAY  "The  average  processing  time 

"is . "* ; 

STR<Mapt,6,2> 

9  Mcnt  +  6,  5  SAY  "The  average  time  awaiting  "*; 

“manager  response  is.  .  . 

STR  <  Mimr ,6,2) 

9  Mcnt*7,  5  SAY  "The  average  time  to  close  out  “♦ 

“a  case  is . 

STR  <  Mcot ,6,2) 

9  Mcnt*9,  5  SAY  "The  average  turn  around  time  "*; 
"of  a  case  from" 

9  Mcnt*10,  5  SAY  "arrival  at  FMSO  to  final 

"close  out  is  .  .  . . ”*; 

STR<Wtime,6,2) 

9  Mental 2. 21  SAY  “***  QDR  CASES  STATUS  REPORT 

***■ 

9  Mcnt*13,  5  SAY  “Total  number  of  cases  in  *'♦; 

“process . "*; 

STR<Mtoh.6.0> 

9  Mcnt*14.  5  SAY  "Total  number  of  cases 

"transmitted  to  item  manager"*: 

STR  <  Tran, S , 0 ) 

9  Mcnt*15,  5  SAY  "Total  number  of  cases  on  the"*; 

"database . "*; 

STR (Total , 6 , 0> 

9  Mcnt*17.  5  SAY  "Total  cases  in  close  in  close  "* 

“out  process . "  *: 

STR ( Mtip, 6 , 0 ) 

9  Mcnt*lQ,  5  SAY  "Total  cases  closed  "*; 

"out . "*; 

STR (Closed , b , 0  > 

9  Mcnt*19,  5  SAY  "Total  number  of  cases 

"returned  from  item  manager.  .  .  "*: 
STR  <  Counter , 6  r  0 ) 

9  Mcnt*21,  5  SAY  "Total  number  of  cases  still  "*: 
"out  to  item  manager.  .  . 

STR  (flso  ,6 , 0) 

DO  WHILE  Crt 

9  24,  10  SAY  "Do  a  <Carriage  Return)  to  continue 
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WAIT 

STORE  F  TO  Crt 
STORE  0  TO  Went 
ERASE 
ENDDO  Crt 
IF  ! (Reply)  =  "N" 

STORE  T  TO  Crt 
ENDIF  Reply 

0  Mcnt +3,  23  SAY  •■***  SUPPLY  ANALYST  CASE 

LOAD  ***■ 

STORE  Went  *  5  TO  Went 

SELECT  PRIMARY 

USE  9:Qdrstats 

SELECT  SECONDARY 

USE  B:Techcode 

SORT  ON  Tech  TO  Sortfile 

SELECT  SECONDARY 

USE  Sortfile 

IF  Crt  =  T 

DO  WHILE  .NOT.  EOF  .AND.  <  22 
STORE  Went  ♦  1  TO  Went 
STORE  Counter /Total  *  100.00  TO  Mpc 
S  Went,  5  SAY  "Total  cases  processed  to  " * ; 

"date  by  analyst  #"*STR (Tech , 2 . 0) ♦ ; 

":  "♦STR( Counter ,6,0) ♦“ 

STR<Mpc,5,2)  «■"%" 

SKIP 

ENDDO  Not  EOF  or  page  overflow 
ENDIF  Crt 

Q  Mcnt+2,  10  SAY  "The  average  analyst  total 

"case  load  to  date  is:  " *-STR < Macl  ,7,2) 


IF  Crt  =  T 

STORE  2  TO  Mcnt 

a  24,  10  SAY  "Do  a  <Carriage  Return)  to  continue" 
WAIT 
ERASE 
ELSE 

STORE  5  TO  Mcnt 
EJECT 
ENDIF  Crt 

a  Mcnt,  18  SAY  "*#*  CASE  LOAD  BREAKDOWN  BY 
COG  ***■ 


SELECT  SECONDARY 
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USE  B:  Cogcount 
SORT  ON  Cog  TO  Sortcog 
SELECT  SECONDARY 
USE  Sortcog 

STORE  Ncnt  ♦  3  TO  Hcnt 

IF  Crt  *  T 

DO  WHILE  .NOT.  EOF 
IF  Hcnt  <  22 

STORE  Hcnt  *  1  TO  Hcnt 

(3  Hcnt,  10  SAY  “Total  caaes  processed  to 

“data  for  COG  " »S < COG ,1,2)*”:  ”♦ 

STR  < Counter ,6,0) 

SKIP 

ELSE 

STORE  2  TO  Hcnt 

<3  24,  10  SAY  “Do  a  <Ca rriage  Return>  to 
“continue" 

WAIT 

ERASE 

ENDIF  Screen  overflow 
ENDDO  Not  EOF 
ELSE 

DO  WHILE  .NOT.  EOF 
IF  Mcnt  <  54 

STORE  Hcnt  ♦  1  TO  Hcnt 

9  Hcnt,  10  SAY  “Total  cases  processed  to  “ * ; 

“date  for  COG  "♦S<Cog,  1,2)  ♦'*:  “♦ 

STR  <  Counter ,6,0) 

SKIP 

ELSE 

STORE  5  TO  Hcnt 
EJECT 

ENDIF  Page  overflow 
ENDDO  Not  EOF 
ENDIF  Crt 
IF  Crt  *  T 

STORE  2  TO  Hcnt 

0  23,  10  SAY  “END  OF  COG  REPORT" 

0  24,  10  SAY  “Do  a  (Carriage  Return)  to  continue 
WAIT 
ERASE 
ELSE 

STORE  5  TO  Hcnt 
EJECT 
ENDIF  Crt 
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9  Mcnt,  IS  SAY  "***  CASE  BREAKDOWN  BY  ITEM 
"♦I 

"MANAGER  ***" 

SELECT  SECONDARY 
USE  B:Iacount 
SORT  ON  la  TO  Sortia 
SELECT  SECONDARY 
USE  Sortia 

STORE  Mcnt  ♦  3  TO  Mcnt 

IF  Crt  »  T 

DO  WHILE  .NOT.  EOF 
IF  Mcnt  <  22 

STORE  Mcnt  ♦  1  TO  Mcnt 

9  Mcnt,  10  SAY  "Total  cases  processed  to 
"date  for  "♦S<  1a,  1 , 4)  +" :  *'♦; 

STR< Counter, 6,0) 

SKIP 

ELSE 

STORE  2  TO  Mcnt 

9  24,  10  SAY  "Do  a  <Carriage  Return)  to 
"continue" 

WAIT 

ERASE 

ENDIF  Screen  overflow 
ENDDO  Not  EOF 
ELSE 

DO  WHILE  .NOT.  EOF 
IF  Mcnt  <  54 

STORE  Mcnt  ♦  1  TO  Mcnt 

9  Mcnt,  10  SAY  "Total  cases  processed  to 
date  for  ”*S < Im , 1 , 4> ♦” : 

STR< Counter ,6,0) 

SKIP 

ELSE 

STORE  5  TO  Mcnt 
EJECT 

ENDIF  Page  overflow 
ENDDO  Not  EOF 
ENDIF  Crt 

IF  Crt  =■  T 

STORE  2  TO  Mcnt 

9  23,  10  SAY  "End  of  item  aansger  report" 

9  24,  10  SAY  "Do  a  {Carriage  Return)  to  continue" 
WAIT 
ERASE 
ELSE 
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STORE  5  TO  Kent 
EJECT 
ENDIF  Crt 

9  Kent,  10  SAY  "The  database  shows  a  total  of 
♦STR< Cat 1,6,0) ♦"  category  I  QDRa. " 

9  Mcnt*2,  10  SAY  “The  database  shows  a  total  of 
*STR<Cat2,6,0) ♦  "  category  II  QDRa." 

9  Kent ♦6,  10  SAY  "There  are  a  total  of  “*; 

“STR<Cat0,6,0> ♦”  cases  in  the"*; 

“  database" 

9  Mcnt*7,  10  SAY  "that  are  not  identified  as  "*; 
"either  category  I  or  II." 

IF  Crt  =>  T 

9  23,  10  SAY  “END  OF  CATEGORY  REPORT" 

9  24,  10  SAY  "Do  a  <Carriage  Return)  to  continue" 

WAIT 

ERASE 

SELECT  PRIMARY 
USE  b:odr 
DO  Menu 
ELSE 
EJECT 

SET  PRINT  OFF 
SET  SCREEN  ON 
SET  FORMAT  TO  SCREEN 
SELECT  PRIMARY 
USE  BcQDR 
DO  Menu 
ENDIF  Crt 
ENDDO  Continue 


a8 


APPEND  REC0RD8  TO  THE  DATABASE  (ADDREC. PR8) 


SET  TALK  OFF 
USE  B:Qdrta»p 
APPEND 
ERASE 

3  5,  15  SAY  "UPDATING  STASTICS  FILE,  PLEASE  STAND 
“BY- 

USE  B:Qdrte»p 
DO  CNTR 

SELECT  PRIMARY 
USE  B:Qdr 

INDEX  ON  Casa: nr  TO  B: CASES 

APPEND  FROM  B:Qdrta»p 

SET  SCREEN  OFF 

SELECT  SECONDARY 

USE  B:Qdrteap 

DELETE  ALL 

PACK 

SELECT  PRIMARY 
SET  SCREEN  ON 
RETURN 
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DATABASES  USED  IN  VERSION  1.0 


STRUCTURE  FOR  FILE: 

b: 

QDR.DBF 

NUMBER  i 

OF  RECORDS: 

01252 

DATE  OF 

LAST  UPDATE: 

01/01/80 

PRIMARY 

USE  DATABASE 

FLD 

NAME 

TYPE  WIDTH 

001 

DATE: IN 

N 

004 

002 

IN: WORK 

N 

004 

003 

CASE: NR 

C 

009 

004 

COG 

C 

002 

003 

TECH: CODE 

N 

002 

006 

ITEM: MGR 

C 

004 

007 

CATEGORY 

c 

001 

008 

TRANSMIT 

N 

004 

009 

RESPONSE 

N 

004 

010 

CLOSEOUT 

N 

004 

•*  TOTAL  •» 

00039 

STRUCTURE  FOR  FILE:  B:QDRTEMP. DBF 
NUMBER  OF  RECORDS:  00000 

DATE  OF  LAST  UPDATE:  01/01/80 


PRIMARY 

USE  DATABASE 

FLD 

NAME 

TYPE 

WIDTH 

OOl 

DATE: IN 

N 

004 

002 

IN: WORK 

N 

004 

003 

CASE: NR 

C 

009 

004 

COG 

C 

002 

005 

TECH: CODE 

N 

002 

006 

ITEM: MGR 

C 

004 

007 

CATEGORY 

C 

001 

008 

TRANSMIT 

N 

004 

009 

RESPONSE 

N 

004 

010 

CLOSEOUT 

N 

004 

Oil 

FLAG 

C 

001 

*•  TOTAL  •• 

00040 

100 


STRUCTURE  FOR  FILE:  B : QDRSTATS . DBF 
NUMBER  OF  RECORDS:  OOOOl 


DATE  OF 

LAST  UPDATE: 

01/01/80 

PRIMARY 

USE  DATABASE 

FLD 

NAME 

TYPE 

WIDTH 

001 

TOTAL 

N 

010 

002 

AWTG 

N 

010 

003 

JOB 

N 

010 

004 

PROCESS 

N 

010 

005 

CATO 

N 

010 

008 

CAT1 

N 

010 

007 

CAT2 

N 

010 

008 

RESPONSE 

N 

010 

009 

CLOSEOUT 

N 

010 

010 

TIME 

N 

010 

Oil 

COUNTER 

N 

010 

012 

TRAN 

N 

010 

013 

CLOSED 

N 

010 

**  TOTAL  •• 

00131 

STRUCTURE  FOR  FILE: 
NUMBER  OF  RECORDS: 
DATE  OF  LAST  UPDATE: 
PRIMARY  USE  DATABASE 
FLD  NAME 

OOl  TECH 

002  COUNTER 

••  TOTAL  •• 


B: SORTFILE. DBF 
00008 
01/01/80 

TYPE  WIDTH  DEC 
N  002 

N  010 

00013 


STRUCTURE  FOR  FILE: 
NUMBER  OF  RECORDS: 
DATE  OF  LAST  UPDATE: 
PRIMARY  USE  DATABASE 
FLD  NAME 

001  IM 

002  COUNTER 

»•  TOTAL  •• 


B : IMCOUNT. DBF 
00013 
01/01/80 

TYPE  WIDTH  DEC 
C  004 

N  010 

00015 
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STRUCTURE  FOR  FILE:  B : TECHCODE . DBF 
NUMBER  OF  RECORDS:  00008 

DATE  OF  LAST  UPDATE:  01/01/80 
PRIMARY  USE  DATABASE 

FLD  NAME  TYPE  WIDTH  DEC 

OOl  TECH  N  002 

002  COUNTER  N  010 

•  •  TOTAL  »•  00015 


This  d«t«  dictionary  is  divided  in  to  two  parts. 
Ths  first  part  is  s  dafinitions  ssction.  Each 
variable  used  in  ths  application  program  is  listed 
alphabetically.  Modules  that  it  can  be  found  in  are 
listed  in  parenthesis.  A  short  definition  below  the 
variable  name  is  given  to  aid  in  understanding 
program  logic. 

The  second  section  is  a  listing  (by  nodule)  of 
equations  used  in  the  program  to  show  variable 
computations . 
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SECTION  ONE 


AUTS  (TAT.  MGR,  CMTR) 

Total  awaiting  procaaa  tiaa  of  all  QDR' a  racaivad 
at  FHSQ.  Thia  tiaa  ia  aaaaurad  in  taraa  of  how  long 
a  QDR  waitad  for  a  Supply  Syataa  Analyat  to  actually 
atart  working  tha  caaa  up. 


rnwn  run  <henu> 

Nana  of  a  aodula  within  tha  application  prograa 
that  coaputaa  tha  nuabar  of  caaaa  handlad  by  aach 
Supply  Syataa  Analyat  (aa  idantifiad  by  thair  uniqua 
tach  codaa) ,  parcantaga  of  total  caaaa  handlad  by  tha 
analyat  and  tha  avaraga  nuabar  of  caaaa  coaputad  aa  a 
function  of  actual  nuabar  of  analyata  currant ly 
aaaignad  dividad  into  tha  total  nuabar  of  caaaa  on 
tha  data  baaa. 


CASE I NR  ( QDRTEMP . DBF ,  ADDREC,  QDREDIT,  QDR. DBF) 

Uniqua  nuabar  aaaignad  to  a  QDR  caaa  at  tha  tiaa 
of  ita  procaaa  at  FHSO. 


man?  (addrec.  qdredzt) 

Taaporary  data  baaa  film  in  which  tha  data  baaa 
ia  indaxad  on  caaa  nuabar  for  tha  purpoaa  of  aorting 
or  kaying  on  tha  caaa  nuabar. 


CRTS  (MGR.  CMTR,  QDREDZT,  QDRST ATS . DBF ) 

Variabla  that  contalna  tha  total  nuabar  of  QDR 
caaaa  not  idantifiad  aa  althar  Catagory  1  or  2.  Thia 
nuabar  indicataa  tha  total  nuabar  of  racorda 
containad  on  tha  databaaa  that  ara  in  arror  in  thia 
f laid. 


CAT1  (MGR,  CMTR,  QDREDZT,  QDRSTATS . DBF ) 

Total  nuabar  of  Catagory  1  QDR'a  praaantly  on  tha 

databaaa . 


CATt  (MGR,  CMTR,  QDREDZT,  QDRSTATS . DBF > 

Total  nuabar  of  Catagory  2  QDR'a  praaantly  on  tha 

databaaa . 
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CATCaORY  (QDRTEHP.DBD,  CNTR.  QOREDZT,  GDR.DBF) 

Nana  of  flold  in  Min  data  baaa.  Fiald  in  a  ona 
digit  charactar  that  contains  aithar  a  * 1 *  or  a  '2'. 


CAMTft  (QOREDZT) 

Variabla  uaad  to  conputa  tha  total  tiaa  a  caaa 
apanda  awaiting  procaaa  aftar  arrival  at  FHSO.  Thia 
variabla  la  uaad  in  tha  aodula  for  aditing  racorda. 
(Saa  Awtg) 


CmaElWR  (QOREDZT) 

Variabla  uaad  to  copy  tha  caaa  nuabar  of  a  data 
baaa  racord  during  tha  racord  aditing  procaaa.  (Saa 
Caaainr) 


CCATEQORY  (QOREDZT) 

Variabla  uaad  to  copy  tha  catagory  of  a  caaa  to  a 
taaporary  variabla  uaad  in  tha  aditing  procaaa.  (Saa 
Catagory) 


m  «acn  (QDREDZT) 

Tha  total  nuabar  of  daya  batwaan  whan  an  Ztaa 
Hanagar  raaponda  back  to  FHSO  and  whan  FHSO  cloaaa 
out  tha  caaa.  Variabla  ia  uaad  in  tha  racord  aditing 
procaaa. 


CCLOMDUT  (QOREDZT) 

Variabla  uaad  to  copy  tha  cloaaout  data  froa 
currant  racord  to  taaporary  variabla  uaad  in  tha 
aditing  procaaa.  (Saa  Cloaaout) 


cam  (QOREDZT) 

Variabla  uaad  to  copy  tha  COG  coda  of  a  caaa  to  a 
taaporary  variabla  uaad  in  tha  aditing  procaaa.  (Saa 
COG) 


CMfflEl IN  (QOREDZT) 

Variabla  uaad  to  copy  tha  data  a  caaa  arrivad  at 
FHSO  to  a  taaporary  variabla  uaad  in  tha  aditing 
procaaa.  (Saa  Data: in) 
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CITSMlMMt  <QDREDIT) 

Variable  uud  to  copy  tho  Xtea  Han«g«r  cod*  to  a 
taaporary  var labia  uaad  in  tha  editing  procaaa.  (Saa 
Iteasagr ) 


CXNlMONK  <QDREDIT) 

Variabla  uaad  to  copy  tha  data  a  caaa  was 
actually  atartad  in  procaaa  by  a  Supply  Syataa 
Analyat  to  a  taaporary  variabla  uaad  in  tha  editing 
procaaa.  <Saa  In: work) 


CJGS  (ODREDIT) 

Variabla  uaad  to  coaputa  tha  total  procaaa  tiaa 
it  takaa  a  Supply  Syataa  Analyat  to  procaaa  a  caaa 
and  aand  it  to  tha  Itaa  Manager.  Thla  variabla  ia 
uaad  in  tha  aditing  procaaa.  (Saa  Job) 


(MGR.  CMTR.  QORSTATS . DBF ,  TAT) 

Variabla  containing  total  nuabar  of  caaaa  eloaad 
out.  Uaad  in  eoaputationa  to  coaputa  avaragaa  for 
raporta  ganaratlon. 


CLOSEOUT  (MGR,  QDRTEHP . DBF ,  CHTR,  ODREDIT, 

ODR.DBF,  QORSTATS. DBF.  TAT) 

Ona  of  tan  fialda  on  main  data  baaa.  Field 
containa  data  that  tha  QOR  caaa  waa  actually  cloaed 
out  (Diapoaition  inatructlona  having  bean  completed) . 


COS  (MGR,  QDRTEHP. DBF,  CMTR,  QDR.DBF) 

Cognizance  Group  aa  ldantifiad  by  tha  Naval 
Supply  Syataa.  One  of  ten  fialda  in  the  aain  data 
baaa  file  coapoaaad  of  a  two  digit  character. 


COBCOUMT  (MGR,  CMTR,  QDREDIT) 

Mama  of  a  data  baae  file  uaad  to  atora  tha  COG 
codaa  and  tha  nuabar  of  caaaa  involving  particular 
COG'a. 


CONTINUE  (CASELOAD,  MGR,  TAT) 

DO  WHILE  loop  condition  coda  uaad  to  dataraine 
whether  a  loop  ahould  or  ahould  not  be  continued. 
Condition  la  aat  to  either  True  or  Falaa  prior  to  the 
execution  of  tha  loop  and  raaat  within  tha  loop  in 
order  to  exit  tha  loop. 
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CNTft  (ADDREC,  MAIN) 

Naaa  of  aodula  within  tha  program  uaad  to  coaputa 
variabla  totals  and  updata  tha  QDRSTATS  data  baaa 
fila. 


COUNTER  (MGR,  CASELOAD,  I M COURT. DBF,  TECHCODE . DBF , 

SORTFXLE . DBF ,  CNTR,  QDREDIT,  QDRSTATS . DBF ,  TAT) 
Variabla  uaad  to  total  varioua  counta  naadad  for 
othar  coaputationa . 


C PROCESS  < QDREDIT) 

Variabla  uaad  to  coaputa  tha  total  tiaa  it  takaa 
a  caaa  to  ba  procaaaad  and  aant  to  an  Itaa  Nanagar. 
Thia  variabla  ia  uaad  in  tha  aditing  procaaa.  (Saa 
Procaaa) 


CHERPONRE  < QDREDIT) 

Variabla  uaad  to  copy  tha  data  at  which  tha  caaa 
ia  raapondad  to  by  tha  Itaa  Nanagar  back  to  FHSO  with 
disposition  instructions.  (Saa  Raaponsa) 


CRT  (CASELOAD.  MGR,  TAT) 

DO  WHILE  loop  condition  coda  uaad  to  dataraina 
whathar  a  loop  should  or  should  not  ba  continuad. 
Tha  condition  ia  sat  to  aithar  Trua  or  Falsa  prior  to 
tha  axacution  of  tha  loop  and  raaat  within  tha  loop 
in  ordar  to  axit  tha  loop. 


CTECHlCOOE  (QDREDIT) 

Variabla  uaad  in  tha  aditing  procaaa  to  idantify 
changaa  in  tha  uniqua  Supply  Systaa  Analyst  coda. 
(Saa  Tachicoda) 


CTXME  (QDREDIT) 

Variabla  uaad  in  tha  aditing  procaaa  to  coaputa 
tha  total  days  lnvolvad  in  tha  total  turnaround  tiaa 
that  it  takaa  to  procaaa  a  caaa  froa  baginning  to 
eloasout.  (Saa  Tina) 


CTRAMMXT  (QDREDIT) 

Variabla  uaad  to  copy  tha  data  at  which  tha  caaa 
ia  aant  to  tha  Itaa  Hanagar.  (Saa  Transmit) 
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DATE I IN  (QDRTEHP • DBF ,  CNTR,  QDREDIT,  QDR.DBF) 

Julian  data  QDR  eaaa  la  racaivad  at  FHSO  for 
proceaaing .  Turnaround  tiaa  ia  coaputud  from  thia 
data. 


PUtt  ( QDRTEHP . DBF  > 

Thia  ia  a  fiald  no  longar  in  uaa  and  ia  aarkad 
for  excluaion  in  futura  varaiona. 


1M  < IHCOUNT . DBF ,  CNTR,  QDREDIT,  MGR) 

A  fiald  in  tha  Iacount  data  baaa  fila  uaad  to 
idantify  tha  varioua  Itaa  Managara  involved  in  the 
QDR  procaaa. 


INCOUNT  (MGR,  CNTR) 

Data  baaa  fila  uaad  to  kaap  track  of  all  Itaa 
Managara  and  total  number  of  caaea  procaaaad 
involving  a  given  Itaa  Manager. 


ZNtWORK  < QDRTEMP . DBF ,  CNTR,  ODREDIT,  QDR.DBF) 

Julian  data  that  a  Supply  Syataa  Analyat  actually 
atarta  procaaaing  tha  QDR. 


ITENiNBR  (QDRTEHP. DBF,  CMTR,  QDREDIT,  QDR.DBF) 

Data  baaa  fiald  uaad  to  identify  tha  Itaa  Manager 
of  a  caaa.  Thia  ia  one  of  tan  fialda  to  a  record 
uaad  in  tha  data  baaa.  Field  ia  a  character  fiald 
coapoaed  of  four  digit*. 


JOB  (TAT,  QDRSTATS . DBF ,  CNTR,  MGR) 

Variable  uaad  to  total  up  all  tha  daya  required 
to  procaaa  caaaa  at  FMSO  prior  to  being  aant  to  an 
Itaa  Manager.  Thia  variable  ia  than  divided  by  tha 
total  nuabar  of  caaaa  aant  to  Itaa  Managara  to  give 
an  average  nuabar  of  daya  required  to  actually 
procaaa  a  caaa. 


NAAPT  (MGR,  TAT) 

Maaory  variable  that  containa  tha  average 
awaiting  procaaa  tiaa  for  caaaa  procaaaad  in  FHSO. 
(See  TAT.PRG  in  Section  Two  for  actual  aathod 
computation. ) 
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MACL  (MGR,  CASELOAD) 

Haiory  variable  that  contains  tha  average  caaa 
load  baaad  on  actual  nunbar  of  analyata  aaaignad  to 
tha  offica  dividad  into  tha  total  nuabar  of  racorda 
on  tha  data  baaa.  (Saa  CASELOAD. PRG  in  Saction  Two 
for  actual  aathod  of  computation.) 


HBNWL  < CASELOAD*  MGR) 

Haaory  variable  raad  into  tha  program  froa  tha 
kayboard  am  a  raault  of  a  prograaaad  quary.  Variabla 
la  tha  actual  nuabar  of  analyata  currently  aaaignad 
to  tha  offica. 


MAPT  <MGR*  TAT) 

Naaory  variabla  containing  tha  avaraga  tiaa  that 
it  takaa  for  a  caaa  to  be  procaaaad  and  aant  to  an 
Itaa  Manager.  <Sae  TAT. PRG  in  Saction  Two  for  actual 
aathod  of  coaputation. ) 


mawto  <cntr,  qdredxt) 

Haaory  variabla  that  contains  tha  total  time  in 
days  that  caaaa  ait  in  tha  queue  awaiting  process  by 
an  analyst.  <See  CNTR.PRG  in  Saction  Two  for  actual 
method  of  computation. ) 


HCAKNft  <QDREDIT) 

Haaory  variabla  raad  froa  tha  kayboard  aa  a 
raault  of  a  request  froa  tha  prograa.  Thia  variabla 
la  tha  caaa  nuabar  that  tha  operator  desires  to  view 
for  possible  editing. 


NCATA  <CMTR> 

Haaory  variabla  that  contains  tha  total  nuabar  of 
cases  not  identified  aa  either  category  1  or  2.  If 
thia  variabla  contains  anything  but  a  zero*  than 
there  are  tha  saaa  number  of  racorda  in  error. 


MCAT1  <CMTR) 

Haaory  variabla  that  contains  tha  total  nuabar  of 
category  1  QDR'a. 
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MEATS  (CNTR) 

Kmory  variable  that  contain*  tha  total  nuaber  of 
category  2  OCR's. 


MCLCMK  <CNTR> 

Naaory  variabla  that  contain*  tha  total  nuabar  of 
caaaa  that  hava  baan  closed  out. 


MCLOSSOUT  <CNTR,  QDREDXT) 

Naaory  variabla  that  contain*  tha  total  nuabar  of 
day*  that  it  takaa  tha  Supply  Syataa  Analyst*  to 
iaplaaant  disposition  instructions  and  cloaa  casas 
out.  Variabla  ia  uaad  to  coaputa  avaragas  in  report* 
generation.  (Sea  CNTR.PRG  in  Section  Two  for  actual 
method  of  computation.) 


MCWT  <NGR) 

Naaory  variabla  uaad  aa  an  incraaantal  counter 
for  tha  purpose  of  determining  tha  line  nuabar  of  the 
next  line  of  print  during  report  generation. 


MCNTft  (CASELOAD) 

Naaory  variabla  uaad  aa  an  incraaantal  counter 
for  the  purpose  of  determining  tha  line  nuabar  of  the 
next  line  of  print  during  report  generation. 


NCOS  (CNTR) 

Naaory  variable  that  COG  cod*  is  placed  into  for 
coapariaon  aa  to  whether  the  COG  is  a  new  COG  or  on* 
that  has  been  used  before.  If  it  ia  new,  than  it  is 
added  to  the  COG  list  and  tha  counter  is  sat  to  1. 
If  it  already  exists ,  then  the  counter  is  increaented 
by  1 . 


MCOT  (MGR,  TAT) 

Naaory  variabla  containing  tha  average  time  in 
days  that  it  takas  analysts  to  iaplaaant  disposition 
Instructions  froa  Ztaa  Managers  and  close  tha  case 
out.  (See  TAT.PRG  in  Section  Two  for  actual  aothod 
of  computation . ) 


MCOUNT  (CNTR) 

Naaory  variabla  that  contains  tha  total  nuabar  of 
caaaa  responded  to  by  Item  Managers  with  disposition 
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Instructions.  Vsrisbls  is  ussd  to  compute  averages 
during  reports  generation. 


NCOUNTKlt  (ODREDIT) 

Memory  variable  used  to  keep  track  of  the  nusber 
of  tines  an  event  occurs.  A  general  counter. 


MNU  (MGR.  MAIM,  TAT,  CASELOAD) 

Mane  of  priaary  nodule  within  the  prograa  used  to 
call  nodules  to  either  add/edit  records  or  generate 
required  reports. 


NPLM  (CNTR,  ODREDIT) 

DO  WHILE  loop  condition  code  used  to  determine 
whether  a  loop  should  or  should  not  be  continued. 
Condition  is  set  to  either  True  or  False  prior  to  the 
execution  of  the  loop  and  reset  within  the  loop  in 
order  to  exit. 


MFLABl  (ODREDIT) 

See  HFLAG  above. 


MFLA8S  (ODREDIT) 

See  HFLAG  above. 


MIM  (CNTR) 

Henory  variable  that  the  Itea  Manager  code  is 
placed  into  for  conparison  as  to  whether  the  Itea 
Manager  code  is  a  new  code  or  one  that  has  been  used 
before.  If  it  is  new,  then  it  is  added  to  the  Item 
Manager  list  and  the  counter  is  set  to  1.  If  it 
already  exists,  then  the  counter  is  incremented  by  1. 


MXMt  (MGR,  TAT) 

Memory  variable  containing  the  average  number  of 
days  that  it  takes  an  Itea  Manager  to  respond  back  to 
FMSO  with  actual  disposition  instructions.  (See 
TAT.PRG  in  Section  Two  for  actual  aethod  of 
computation . ) 


HJQB  (CNTR,  ODREDIT) 

Memory  variable  that  contains  the  total  number  of 
days  that  it  took  to  actually  process  cases  prior  to 


sending  then  out  to  tho  Ztoa  Kanagirs.  (See  CNTR.PRG 
in  Soctlon  Two  for  actual  aathod  of  coaputation . ) 


MPC  (MGR,  CASELOAD) 

Neaory  variable  uaad  to  atora  percentages  of 
caaaa  handled  by  a  given  Supply  Syatea  Analyst. 
Percentage  ia  coaputed  by  dividing  the  total  nuaber 
of  caaea  processed  through  FHSO  into  the  nuaber  of 
cases  handled  by  the  analyst. 


tefpfW  (CNTR,  QDREDZT) 

Neaory  variable  used  to  store  the  total  nuaber  of 
days  that  it  takea  a  case  to  be  processed  froa 
arrival  at  FHSO  to  being  sent  to  the  Itea  Manager. 
This  variable  la  used  in  the  initial  turnaround  tlae 
coaputationa  in  raporta  generation.  (See  CNTR.PRG  in 
Section  Two  for  actual  aethod  of  coaputation.) 


MUPDNK  (CNTR.  QDREDZT) 

Neaory  variable  that  contains  the  total  nuaber  of 
days  that  it  takea  Ztea  Managers  to  respond  back  to 
FMSO  with  disposition  instructions.  This  variable  is 
used  to  cospute  an  average  response  tine  during 
reports  generation.  (See  CNTR.PRG  in  Section  Two  for 
actual  aethod  of  coaputation . ) 


MOO  (MGR) 

Neaory  variable  that  contains  the  total  nuaber  of 
cases  still  being  processed  by  Ztea  Managers.  (See 
MGR.PRG  in  Section  Two  for  actual  aethod  of 
coaputation. ) 


MTftT  (MGR,  TAT) 

Neaory  variable  containlngthe  average  turneround 
tlae  froa  arrival  to  sending  a  case  to  the  Ztea 
Manager.  (See  TAT.PRG  in  Section  Two  for  actual 
aethod  of  coaputation.) 


MTKCH  (CNTR) 

Neaory  variable  that  Tech: code  is  placed  into  for 
coaparlaon  asto  whether  the  tech  eode  is  a  new  code 
or  one  that  has  been  used  before.  Zf  it  ia  a  new 
code,  then  it  la  added  the  list  of  codes  end  the 
counter  is  set  to  1.  Zf  it  already  exiats  on  the 
data  base,  then  the  counter  is  lncreaented  by  1. 
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MTZME  (MGR.  CMTR*  QDREDZT*  TAT) 

Nnory  variabla  that  contain*  tha  total  nuabar  of 
daya  thatit  haa  takan  to  procaaa  all  caaaa  froa 
arrival  in  FMSO  to  tha  final  eloaa  out  of  thacaaa. 
Thia  variabla  ia  uaad  to  eoaputa  thair  avaraga 
ovarall  turnaround  tiaa  to  procaa  a  caaa  froa 
baginning  to  and.  (Saa  CNTR.PRG  in  Saction  Two  for 
actual  aathod  of  coaputation . ) 


MTSP  <MGR> 

Maaory  variabla  containing  tha  total  nuabar  of 
caaaa  baing  cloaad  out  by  tha  analyata.  (Saa  HGR.PRG 
in  Saction  Two  for  actual  aathod  of  coaputation.) 


MTOH  (MGR) 

Maaory  variabla  that  contain*  tha  total  nuabar  of 
caaaa  in  tha  offica  baing  procaaaad  tha  analyata  laaa 
tha  caaaa  in  tha  quaua  awaiting  an  analyat  to  ba 
availabla  to  handla  than.  (Saa  MGR.PRG  in  Saction 
Two  for  tha  actual  aathod  of  coaputation.) 


MTOTflL  (CMTR) 

Haaory  variabla  that  contalna  tha  total  nuabar  of 
caaaa  baing  procaaaad  by  tha  count  aodula.  Thia 
total  ia  than  addad  to  tha  ovarall  total  nuabar  of 
caaaa  on  tha  data  baaa  kapt  in  tha  atatlatica  data 
baaa  flla  (QDRSTATA.OBF) . 


MTItflN  (CMTR) 

Maaory  variabla  that  contain*  tha  total  nuabar  of 
caaaa  that  hava  baan  aant  to  an  Ztaa  Managar.  Thia 
total  ia  coaputad  baaad  on  tha  caaaa  baing  procaaaad 
by  tha  count  aodula.  Thia  total  ia  than  addad  to  tha 
ovarall  total  nuabar  aant  to  Ztaa  Nanagara  kapt  in 
tha  atatlatica  data  baaa  flla  (QDRSTATS.DBF) . 


MWONK  (CMTR) 

Maaory  variabla  uaad  aa  a  acratch  pad  during 
varloua  coaputation*. 
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P. CATEGORY  (QDREDIT) 

Sm  CATEGORY.  ' P . '  idantif iaa  tha  var labia  aa 
belonging  to  tha  primary  data  baaa  flla  whan  two 
fllaa  ara  at  tha  aaaa  tima.  Saa  tha  command  SELECT 
In  tha  d&aaa  ZZ  manual  for  a  norm  complata 
axplanation. 


P. CLOSEOUT  (QDREDIT) 

Saa  CLOSEOUT.  Saa  P. CATEGORY  abova. 


P. COS  (QDREDIT) 

Saa  COG.  Saa  P. CATEGORY  abova. 


P.  ZTCMlMM  (QDREDIT) 

Saa  ITEM: MGR.  Saa  P. CATEGORY  abova. 


P.  RESPONSE  (QDREDIT) 

Saa  RESPONSE.  Saa  P. CATEGORY  abova. 


PROCESS  (MGR,  CNTR,  ODRST ATS . DBF ,  TAT) 

Total  numbar  of  day  a  naadad  to  procaaa  a  caaa 
from  arrival  at  FHSO  to  bain?  aant  to  an  Itam 
Managar.  Thia  total  la  uaad  in  computation  during 
raporta  ganaration  to  produca  tha  initial  turnaround 
tima.  (Saa  QDRSTATS.DBF  in  Saction  Two  for  actual 
aathod  of  computation.) 


PaTECHCOOE  (QDREDIT) 

Saa  TECHCODE.  Saa  P. CATEGORY  abova. 


P.  TRANSMIT  (QDREDIT) 

Saa  TRANSMIT.  Saa  P. CATEGORY  abova. 


QDR  (MAIN,  QDREDIT,  ADDREC) 

Main  data  baaa.  Containa  all  caaaa  procaaaad  by 
FHSO.  Each  caaa  la  antarad  on  to  a  tan  fiald  racord 
and  malntainad  on  lina. 


QDRSTATS  (CASELOAD,  QDREDIT,  TAT,  MGR) 

Nana  of  a  data  baaa  fila  uaad  to  atora  total 
counta  of  varloua  aapacta  of  tha  data  on  caaaa  for 
aanagaaant  raporta  ganaration. 
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QOfTTEHP  <ADDREC> 

Name  of  «  data  baaa  file  uaad  to  atora  naw 
raeorda  prior  to  thair  addition  to  tha  aain  data 

baaa. 


JVPLY  (MGR.  CASELOAD.  TAT) 

Input  variabla  naaa  uaad  to  idantify  kayboard 
raaponaaa  at  varioua  pointa  in  tha  program  procaaa. 


RE1P0NBK  (MGR.  ODRTEMP . DBF.  CNTR.  QDREDIT.  QDR.DBF. 
QDRSTATS . DBF .  TAT) 

Julian  data  a  eaaa  ia  racaivad  back  from  an  Itaa 
Managar  with  diapoaition  inatructlon  (Saa  ODR.DBF  for 
aaka  up  of  fiald). 


B. COS  (QDREDIT) 

Saa  COG.  'S.'  ia  uaad  to  Idantify  a  variabla  in 
tha  aacondary  data  baaa  fila  that  ia  opan  at  tha  aaaa 
tiaa  aa  a  primary  data  baaa  fila.  Saa  tha  SELECT 
command  in  tha  dBaaa  II  manual  for  a  complata 
explanation . 


SORTCOO  (MGR) 

Sort a  COG  codaa  mud  arrangaa  tham  in  aacanding 
alphabatical  ordar. 


90RTFILE  (MGR.  CASELOAD) 

Temporary  data  baaa  fila  uaad  to  kaap  track  of 
tha  Supply  Syatam  Analyat  codaa  and  tha  total  caaaa 
handled  by  each  analyat. 


SOfVTIM  (MGR) 

Sorta  Itaa  Manager  codaa  and  arrangaa  tham  in 
aacanding  alphbetical  ordar. 


S. XTIMlNM  (QDREDIT) 

Saa  ITEM: MGR.  Saa  3. COG  above. 
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TECH  (CASELOAD,  MGR,  TECMCODE . DBF ,  SORTFILE . DBF , 
QDREDXT) 

A  field  containing  the  Tech: code  arranged  in 
aacanding  numeric  order. 


ICaCaM  (CNTR,  CASELOAD,  MGR,  QDREDXT > 

None  of  data  baae  file  uaed  to  maintain  a  Hating 
of  Supply  Syatem  Analyat  codea  and  the  total  number 
of  caaea  handled  by  each  analyat. 


ISCHaCOOC  < CNTR ,  QDREDXT,  QDRTEMP.DBF) 

Unique  two  digit  code  uaed  to  identify  the  Supply 
Syatem  Analyat  who  ia  or  haa  worked  up  a  given  caae. 


TIME  (CMTR,  TAT,  HGR) 

The  total  time  of  proceaa  from  date  in  to  cloae 
out  of  a  caae.  Uaed  to  compute  average  turnaround 
tine  of  a  caae  from  initial  receipt  at  FHSO  to  the 
time  that  FHSO  cloaea  the  caae  out  and  placea  it  in  a 
hlatory  file. 


THAN  (HGR,  CNTR,  QDREDXT,  ODRSTATS,  TAT) 

Variable  containing  total  number  of  caaea  aent  to 
Item  Hanagera  by  FHSO.  t/aed  to  compute  averagea  in 
conputationa  for  reporta  generation. 


TAANMXT  (QDRTEHP . DBF ,  CNTR,  QDREDXT,  QDR.DBF) 

Julian  date  a  caae  ia  aent  from  FHSO  to  the  Item 
Heneger  for  further  proeeaalng. 


TOTAL  (HGR,  CASELOAD,  CNTR,  QDRSTATS,  TAT) 

Verieble  containing  the  total  number  of  caaea  in 
the  deta  baae.  Thla  variable  ia  uaed  to  compute 
verloua  averagea  in  eomputationa  for  reporta 
generation. 
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X  (MAZN> 

Variable  uaad  to  create  a  pauaa  within  a  program 
which  allows  tha  oparator  to  raad  aaaaagaa  on  tha 
•croon  <CRT>  prior  to  continuation  of  tha  program 
execution.  In  this  eannar,  tha  oparator  need  not 
•aka  any  keyboard  raaponaa  inordar  to  continua. 
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SECTION  TWO 


CASELOAD.  PM 

TOTAL/HANAL  •  1.00  •  HACL 
COUNTER/TOTAL  •  100.00  •  RPC 


PROCESS/TOTAL  •  1.00  ■  HTAT 
AWTG/TRAN  •  1.00  •  HAAPT 
JOB/TOTAL  •  1.00  ■  HAPT 
RESPONSE/COUNTER  *  1.00  ■  HIMR 
CLOSEOUT/CLOSED  »  1.00  »  MOOT 
TIHE/COUNTER  •  1.00  ■  HTXHE 
TOTAL  -  TRAM  ■  HTOH 
COUNTER  -  CLOSED  «  HTIP 
TRAN  -  COUNTER  -  NSO 
TOTAL/HANAL  >  1.00  »  HACL 
COUNTER/TOTAL  •  100.00  *  HPC 


TAT. PUS 

PROCESS/TOTAL  •  1.00  -  HTAT 
AWTG/TRAM  *  1.00  •  HAAPT 
JOB/TOTAL  •  1.00  «  HAPT 
RESPONSE/COUNTER  •  1.00  -  HIHR 
CLOSEOUT/CLOSED  •  1.00  -  HCOT 
TIHE/COUNTER  *  1.00  ■  HTIHE 


CNTILPm 

HTOTAL  ♦  1  ■  HTOTAL 
IN: WORK  -  DATE: IN  -  HAWTG 
CATEGORY  >  0,  1,  OR  2 
TRANSMIT  -  IN: WORK  -  HJOB 
TRANSMIT  -  DATE: IN  -  KPROCESS 
RESPONSE  -  TRANSMIT  -  HRESPONSE 
CLOSEOUT  -  RESPONSE  -  HCLOSEOUT 
CLOSEOUT  -  DATE: IN  -  HTIHE 
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QDftSTATS.  DBF 

TOTAL  -  HTOTAL  ♦  TOTAL 

AWTG  -  HAWTG  ♦  AWTG 

JOB  -  HJOB  ♦  JOB 

PROCESS  ■  MPROCESS  ♦  PROCESS 

CATO  ■  HCATO  ♦  CATO 

CAT1  «  HCAT1  *  CAT1 

CAT2  ■  HCAT2  ♦  CAT2 

RESPONSE  •  HRESPONSE  ♦  RESPONSE 

CLOSEOUT  *  HCLOSEOUT  ♦  CLOSEOUT 

TINE  »  HTIHE  ♦  TINE 

COUNTER  »  NCOUNT  ♦  COUNTER 

TRAN  -  HTRAN  ♦  TRAN 

CLOSED  ■  HCLOSE  ♦  CLOSED 


ODNCDIT.MHI 

DATE: IN  >  CDATE: IN 
IN  .'WORK  -  CIN.'WORC 
CASE : NR  -  CCASESNR 
COG  ■  CCOG 

TECH: CODE  -  CTECH : CODE 

item: MGR  •  citeh:ngr 

CATEGORY  »  CCATEGORY 

TRANSMIT  •  CTRANSMIT 

RESPONSE  •  CRESPONSE 

CLOSEOUT  »  CCLOSEOUT 

AWTG  ■  AWTG  ♦  NAWTG  -  CAWTG 
JOB  •  JOB  ♦  NJOB  -  CJOB 

PROCESS  ■  PROCESS  ♦  MPROCESS  -  CPROCESS 
RESPONSE  •  RESPONSE  *  HRESPONSE  -  CRESPONSE 

CLOSEOUT  •  CLOSEOUT  ♦  MCLOSEOUT  -  CCLOSEOUT 

TIME  ■  TIME  ♦  MTIME  -  CTIME 
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SORTFXLE* DBF 

TECH  ■  HTECH  ♦  TECH: CODE 
COUNTER  •  COUNTER  ♦  1 


IMCOUNT. DBF 

XN  ■  (Sm  IN  in  Section  0n«.> 
COUNTER  «  COUNTER  ♦  1 


TECH  »  (Smm  TECH  in  Section  0n«.) 
COUNTER  >  COUNTER  ♦  1 
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